Lines Matching +defs:textutil +defs:repeat
0 # repeat.tcl --
3 # Emulation of string repeat for older
12 # RCS: @(#) $Id: repeat.tcl,v 1.1 2006/04/21 04:42:28 andreas_kupries Exp $
19 namespace eval ::textutil::repeat {}
23 namespace eval ::textutil::repeat {
24 variable HaveBuiltin [expr {![catch {string repeat a 1}]}]
30 # - Tests for 'string repeat' in every call!
34 proc textutil::repeat::StrRepeat { char num } {
41 set str [ string repeat $char $num ]
47 if {$::textutil::repeat::HaveBuiltin} {
48 proc ::textutil::repeat::strRepeat {char num} {
49 return [string repeat $char $num]
52 proc ::textutil::repeat::blank {n} {
53 return [string repeat " " $n]
56 proc ::textutil::repeat::strRepeat {char num} {
76 proc ::textutil::repeat::blank {n} {
84 namespace eval ::textutil::repeat {
91 package provide textutil::repeat 0.7