Mercurial > hg > egg-tcls
comparison quotedb.tcl @ 653:96a659f66be9
quotedb: Use splitx instead of split.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Wed, 17 Feb 2021 11:09:50 +0200 |
| parents | 0f206ab6a0e4 |
| children | 88d0e2ba73ca |
comparison
equal
deleted
inserted
replaced
| 652:aa317575410d | 653:96a659f66be9 |
|---|---|
| 393 } | 393 } |
| 394 | 394 |
| 395 ### Parse the given command | 395 ### Parse the given command |
| 396 qdb_log "${unick}/${uhand}/${uchan} searched ${utable}: ${utext}" | 396 qdb_log "${unick}/${uhand}/${uchan} searched ${utable}: ${utext}" |
| 397 | 397 |
| 398 set ftokens [split $utext " "] | 398 set ftokens [::textutil::split::splitx $utext {\s+}] |
| 399 set fpatlist {} | 399 set fpatlist {} |
| 400 foreach ftoken $ftokens { | 400 foreach ftoken $ftokens { |
| 401 set fprefix [string range $ftoken 0 0] | 401 set fprefix [string range $ftoken 0 0] |
| 402 set fpattern [string range $ftoken 1 end] | 402 set fpattern [string range $ftoken 1 end] |
| 403 | 403 |