Fossil SCM
New helper command to delete item from list by name instead of position.
Commit
4e49cbf03bb46ac5c67133bf116654b9890e8d41
Parent
e5441b908ddf48a…
1 file changed
+11
-1
+11
-1
| --- tools/cvs2fossil/lib/misc.tcl | ||
| +++ tools/cvs2fossil/lib/misc.tcl | ||
| @@ -48,15 +48,25 @@ | ||
| 48 | 48 | set max $e |
| 49 | 49 | } |
| 50 | 50 | return $max |
| 51 | 51 | } |
| 52 | 52 | |
| 53 | + proc ldelete {lv item} { | |
| 54 | + upvar 1 $lv list | |
| 55 | + set pos [lsearch -exact $list $item] | |
| 56 | + if {$pos < 0} return | |
| 57 | + set list [lreplace $list $pos $pos] | |
| 58 | + return | |
| 59 | + } | |
| 60 | + | |
| 61 | + # Delete item from list by name | |
| 62 | + | |
| 53 | 63 | # # ## ### ##### ######## ############# |
| 54 | 64 | } |
| 55 | 65 | |
| 56 | 66 | namespace eval ::vc::tools::misc { |
| 57 | - namespace export sp nsp max | |
| 67 | + namespace export sp nsp max ldelete | |
| 58 | 68 | } |
| 59 | 69 | |
| 60 | 70 | # ----------------------------------------------------------------------------- |
| 61 | 71 | # Ready |
| 62 | 72 | |
| 63 | 73 |
| --- tools/cvs2fossil/lib/misc.tcl | |
| +++ tools/cvs2fossil/lib/misc.tcl | |
| @@ -48,15 +48,25 @@ | |
| 48 | set max $e |
| 49 | } |
| 50 | return $max |
| 51 | } |
| 52 | |
| 53 | # # ## ### ##### ######## ############# |
| 54 | } |
| 55 | |
| 56 | namespace eval ::vc::tools::misc { |
| 57 | namespace export sp nsp max |
| 58 | } |
| 59 | |
| 60 | # ----------------------------------------------------------------------------- |
| 61 | # Ready |
| 62 | |
| 63 |
| --- tools/cvs2fossil/lib/misc.tcl | |
| +++ tools/cvs2fossil/lib/misc.tcl | |
| @@ -48,15 +48,25 @@ | |
| 48 | set max $e |
| 49 | } |
| 50 | return $max |
| 51 | } |
| 52 | |
| 53 | proc ldelete {lv item} { |
| 54 | upvar 1 $lv list |
| 55 | set pos [lsearch -exact $list $item] |
| 56 | if {$pos < 0} return |
| 57 | set list [lreplace $list $pos $pos] |
| 58 | return |
| 59 | } |
| 60 | |
| 61 | # Delete item from list by name |
| 62 | |
| 63 | # # ## ### ##### ######## ############# |
| 64 | } |
| 65 | |
| 66 | namespace eval ::vc::tools::misc { |
| 67 | namespace export sp nsp max ldelete |
| 68 | } |
| 69 | |
| 70 | # ----------------------------------------------------------------------------- |
| 71 | # Ready |
| 72 | |
| 73 |