Posted to tcl by mookie at Tue Nov 04 11:23:26 GMT 2025view raw
- variable immute abc123
- variable [switch {$immute {
- default {
- base16_$immute [binary encode hex $immute]
- switch $immute {
- abc123 { puts "no modification" }
- transform { set $immute [binary encode hex $immute]}
- } ;# end switch
- }
- } ;# end switch