string cat

string cat a b c …

returns concatenated string abc…

Currently, on my patchlevel 8.6.1, this subcommand is not available by default, so I added it by hand.

if {[info command ::tcl::string::cat] eq ""} then {
  proc ::tcl::string::cat args {::join $args ""}
  apply {
    map {
      dict set map cat ::tcl::string::cat
      namespace ensemble configure string -map $map
    }
  } [namespace ensemble configure string -map] 
}

© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z