Fossil

Check-in [bf0b70d5]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed handling of empty revisions.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: bf0b70d5e08fe0d6747e3c6e6687b18aa531f3a9
User & Date: aku 2007-12-06 03:48:25
Context
2007-12-06
03:54
Added progress feedback to the file import, and moved the log output to level 8. check-in: 08f80857 user: aku tags: trunk
03:48
Fixed handling of empty revisions. check-in: bf0b70d5 user: aku tags: trunk
2007-12-05
08:07
Merged mainline into my branch to get the newest application. check-in: d0305b30 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/cvs2fossil/lib/c2f_file.tcl.

380
381
382
383
384
385
386



387
388

389
390
391
392
393
394
395
	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




	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







>
>
>
|
|
>







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