Lines Matching refs:str
24 # str input string
29 proc string_cap {str {idx -1}} {
31 if {[string length $str]>$i} {
32 return $str
36 return [string toupper [string index $str 0]][string tolower \
37 [string range $str 1 end]]
81 # str input string
86 ;proc untabify {str {tablen 8}} {
88 while {[set i [string first "\t" $str]] != -1} {
90 append out [string range $str 0 [incr i -1]][format %*s $j { }]
91 set str [string range $str [incr i 2] end]
93 return $out$str
99 # str input string
104 ;proc tabify {str {tablen 8}} {
106 set str [untabify $str]
108 while {[set i [string first { } $str]] != -1} {
111 set s [string range $str 0 $i]
117 set str [string range $str [incr i] end]
119 return $out$str