OLD | NEW |
1 # 2014 Dec 19 | 1 # 2014 Dec 19 |
2 # | 2 # |
3 # The author disclaims copyright to this source code. In place of | 3 # The author disclaims copyright to this source code. In place of |
4 # a legal notice, here is a blessing: | 4 # a legal notice, here is a blessing: |
5 # | 5 # |
6 # May you do good and not evil. | 6 # May you do good and not evil. |
7 # May you find forgiveness for yourself and forgive others. | 7 # May you find forgiveness for yourself and forgive others. |
8 # May you share freely, never taking more than you give. | 8 # May you share freely, never taking more than you give. |
9 # | 9 # |
10 #*********************************************************************** | 10 #*********************************************************************** |
(...skipping 309 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
320 set iOff [gobble_whitespace text] | 320 set iOff [gobble_whitespace text] |
321 while {[set nToken [gobble_text text word]]} { | 321 while {[set nToken [gobble_text text word]]} { |
322 lappend ret $word $iOff [expr $iOff+$nToken] | 322 lappend ret $word $iOff [expr $iOff+$nToken] |
323 incr iOff $nToken | 323 incr iOff $nToken |
324 incr iOff [gobble_whitespace text] | 324 incr iOff [gobble_whitespace text] |
325 } | 325 } |
326 | 326 |
327 set ret | 327 set ret |
328 } | 328 } |
329 | 329 |
OLD | NEW |