Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixed handling of empty revisions. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bf0b70d5e08fe0d6747e3c6e6687b18a |
| User & Date: | aku 2007-12-06 03:48:25.000 |
Context
|
2007-12-06
| ||
| 03:54 | Added progress feedback to the file import, and moved the log output to level 8. check-in: 08f8085700 user: aku tags: trunk | |
| 03:48 | Fixed handling of empty revisions. check-in: bf0b70d5e0 user: aku tags: trunk | |
|
2007-12-05
| ||
| 08:07 | Merged mainline into my branch to get the newest application. check-in: d0305b305a user: aku tags: trunk | |
Changes
Changes to tools/cvs2fossil/lib/c2f_file.tcl.
| ︙ | ︙ | |||
380 381 382 383 384 385 386 |
return [lsort -index 1 -dict [lsort -index 0 -dict $candidates]]
}
method Expand1 {chan dir graph node} {
set revnr [$graph node get $node revnr]
set fname r$revnr
struct::list assign [$graph node get $node text] offset length
| > > > | | > | 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 |
return [lsort -index 1 -dict [lsort -index 0 -dict $candidates]]
}
method Expand1 {chan dir graph node} {
set revnr [$graph node get $node revnr]
set fname r$revnr
struct::list assign [$graph node get $node text] offset length
if {$length < 0} {
set data ""
} else {
seek $chan $offset start
set data [string map {@@ @} [read $chan $length]]
}
if {![$graph node keyexists $node __base__]} {
# Full text node. Get the data, decode it, and save.
log write 2 file {Expanding <$revnr>, full text}
fileutil::writeFile -translation binary $dir/$fname $data
|
| ︙ | ︙ |