# Tcl 8.1 introduced new string commands, notably [string repeat].
package require Tcl
if {[package vcompare [package provide Tcl] 8.1] < 0} {
rename string Tcl8.1_string
proc string {cmd args} {
switch -exact -- $cmd {
repeat {
if {[llength $args] != 2} {
return -code error \
"wrong # args, should be string repeat string count"
}
foreach {str n} $args break
strrep $str $n
}
}
uplevel [list Tcl8.1_string $cmd] $args
}
proc strrep {text n} {
if {$n <= 0} {
return ""
} elseif {$n == 1} {
return $text
} elseif {$n == 2} {
return $text$text
} elseif {0 == ($n % 2)} {
set result [strrep $text [expr {$n / 2}]]
return "$result$result"
}
return "$text[strrep $text [incr n -1]]"
}
}