Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Updated method 'drop' of changesets, the in-memory parts have migrated to 'destroy' as part of the work on pass InitCSets. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
8dd5afbc80e13c1c0bcd1f9b0868efae |
User & Date: | aku 2008-02-26 04:53:56 |
Context
2008-02-26
| ||
04:55 | Merged with [aa519dbd99]. check-in: 91fd4205 user: aku tags: trunk | |
04:53 | Updated method 'drop' of changesets, the in-memory parts have migrated to 'destroy' as part of the work on pass InitCSets. check-in: 8dd5afbc user: aku tags: trunk | |
2008-02-25
| ||
02:26 | Add the "stat" webpage showing repository statistics. check-in: e71e4d31 user: drh tags: trunk | |
Changes
Changes to tools/cvs2fossil/lib/c2f_prev.tcl.
212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 |
state run { DELETE FROM changeset WHERE cid = $myid; DELETE FROM csitem WHERE cid = $myid; DELETE FROM cssuccessor WHERE cid = $myid; } } UnmapItems $mytype $myitems unset myidmap($myid) set pos [lsearch -exact $mychangesets $self] set mychangesets [lreplace $mychangesets $pos $pos] set pos [lsearch -exact $mytchangesets($mytype) $self] set mytchangesets($mytype) [lreplace $mytchangesets($mytype) $pos $pos] # Return the list of predecessors so that they can be adjusted. return [struct::list map [state run { SELECT cid FROM cssuccessor WHERE nid = $myid }] [mytypemethod of]] } |
< < < < < < < < |
212 213 214 215 216 217 218 219 220 221 222 223 224 225 |
state run { DELETE FROM changeset WHERE cid = $myid; DELETE FROM csitem WHERE cid = $myid; DELETE FROM cssuccessor WHERE cid = $myid; } } # Return the list of predecessors so that they can be adjusted. return [struct::list map [state run { SELECT cid FROM cssuccessor WHERE nid = $myid }] [mytypemethod of]] } |