Lines Matching refs:start
37 # start - Index into string specifying starting point.
39 proc tcl_wordBreakAfter {str start} {
41 set str [string range $str $start end]
43 return [expr {[lindex $result 1] + $start}]
57 # start - Index into string specifying starting point.
59 proc tcl_wordBreakBefore {str start} {
61 if {$start eq "end"} {
62 set start [string length $str]
64 if {[regexp -indices "^.*($tcl_wordchars$tcl_nonwordchars|$tcl_nonwordchars$tcl_wordchars)" [string range $str 0 $start] result]} {
80 # start - Index into string specifying starting point.
82 proc tcl_endOfWord {str start} {
85 [string range $str $start end] result]} {
86 return [expr {[lindex $result 1] + $start}]
93 # This procedure returns the index of the first start-of-word location
94 # after a starting index in the given string. A start-of-word
96 # whitespace character. Returns -1 if there are no more start-of-word
101 # start - Index into string specifying starting point.
103 proc tcl_startOfNextWord {str start} {
106 [string range $str $start end] result]} {
107 return [expr {[lindex $result 1] + $start}]
114 # This procedure returns the index of the first start-of-word location
119 # start - Index into string specifying starting point.
121 proc tcl_startOfPreviousWord {str start} {
123 if {$start eq "end"} {
124 set start [string length $str]
128 [string range $str 0 [expr {$start - 1}]] result word]} {