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]]
}
|