Lines Matching refs:pref
98 set pref \
100 set pref $pref[string \
102 while { [string first $pref $dups] != -1 } {
103 set pref [string toupper $pref]
104 if { [string first $pref $dups] != -1 } {
105 set pref [string index $alphabet \
107 set pref $pref[string index $alphabet \
112 set dups $pref
114 set dups "$dups $pref"
116 set datastr $pref:$str
175 set pref [string range $d $nn [expr $nn + 1]]
176 set data $pref:$k
194 set pref [string range $d $n [expr $n + 1]]
195 set data $pref:$k