Posted to tcl by mookie at Tue Nov 04 11:23:26 GMT 2025view raw

  1. variable immute abc123
  2. variable [switch {$immute {
  3. default {
  4. base16_$immute [binary encode hex $immute]
  5. switch $immute {
  6. abc123 { puts "no modification" }
  7. transform { set $immute [binary encode hex $immute]}
  8. } ;# end switch
  9. }
  10. } ;# end switch

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week