Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Bugfix in the generation of the initial symbol changesets. Keep entries apart per line-of-development. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2e07cd71649eebbe6ab666241fe0936d |
| User & Date: | aku 2007-11-27 08:59:54.000 |
Context
|
2007-11-27
| ||
| 09:03 | Changesets, extended human readable representation, and tweaking of log output. ... (check-in: 911d56a8c8 user: aku tags: trunk) | |
| 08:59 | Bugfix in the generation of the initial symbol changesets. Keep entries apart per line-of-development. ... (check-in: 2e07cd7164 user: aku tags: trunk) | |
| 05:08 | Bugfixes when generating revision changesets. (1) The dependencies for a revision are a list, not single. (2) Use pseudo-dependencies to separate revisions of the same file from each other if they have no direct dependencies in the state. ... (check-in: 678765068d user: aku tags: trunk) | |
Changes
Changes to tools/cvs2fossil/lib/c2f_pinitcsets.tcl.
| ︙ | ︙ | |||
223 224 225 226 227 228 229 230 231 232 |
set n 0
# First process the tags, then the branches. We know that
# their ids do not overlap with each other.
set lastsymbol {}
set lastproject {}
set revisions {}
| > | | | | > > | | | | > | 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 |
set n 0
# First process the tags, then the branches. We know that
# their ids do not overlap with each other.
set lastsymbol {}
set lastlod {}
set lastproject {}
set revisions {}
foreach {sid rid lod pid} [state run {
SELECT S.sid, R.rid, R.lod, S.pid
FROM tag T, revision R, symbol S -- T ==> R/S, using PK indices of R, S.
WHERE T.rev = R.rid
AND T.sid = S.sid
ORDER BY S.sid, R.lod, R.date
}] {
if {($lastlod != $lod) || ($lastsymbol != $sid)} {
if {[llength $revisions]} {
incr n
set p [repository projectof $lastproject]
project::rev %AUTO% $p sym $lastsymbol $revisions
set revisions {}
}
set lastsymbol $sid
set lastlod $lod
set lastproject $pid
}
lappend revisions $rid
}
if {[llength $revisions]} {
incr n
set p [repository projectof $lastproject]
project::rev %AUTO% $p sym $lastsymbol $revisions
}
set lastsymbol {}
set lastlod {}
set lasproject {}
set revisions {}
foreach {sid rid lod pid} [state run {
SELECT S.sid, R.rid, R.lod, S.pid
FROM branch B, revision R, symbol S -- B ==> R/S, using PK indices of R, S.
WHERE B.root = R.rid
AND B.sid = S.sid
ORDER BY S.sid, R.lod, R.date
}] {
if {($lastlod != $lod) || ($lastsymbol != $sid)} {
if {[llength $revisions]} {
incr n
set p [repository projectof $lastproject]
project::rev %AUTO% $p sym $lastsymbol $revisions
set revisions {}
}
set lastsymbol $sid
set lastlod $lod
set lastproject $pid
}
lappend revisions $rid
}
if {[llength $revisions]} {
incr n
|
| ︙ | ︙ |