Lines Matching refs:start
85 # Before Tcl 8.3 we do not have 'regexp -start'. We simulate it by
90 set start 0
91 while {[regexp -indices {%[0-9a-fA-F]{2}} [string range $url $start end] match]} {
93 incr first $start ; # Make the indices relative to the true string.
94 incr last $start ; # I.e. undo the effect of the 'string range' on match results.
95 append result [string range $url $start [expr {$first - 1}]]
97 set start [incr last]
99 append result [string range $url $start end]
105 set start 0
106 while {[regexp -start $start -indices {%[0-9a-fA-F]{2}} $url match]} {
108 append result [string range $url $start [expr {$first - 1}]]
110 set start [incr last]
112 append result [string range $url $start end]