Fossil

Check-in [e60ba158]
Login

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

Overview
Comment:Added log output to make the log during file import more complete.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e60ba158215dea5ca57084010bea46b6b36ee425
User & Date: aku 2008-01-27 20:43:58
Context
2008-01-28
18:29
REPLACE into the event table rather than INSERT. check-in: 7aa9a2e2 user: drh tags: trunk
2008-01-27
20:43
Added log output to make the log during file import more complete. check-in: e60ba158 user: aku tags: trunk
20:43
Added debug helper methods. Fixed description of symbol reference in instances. check-in: 970be48f user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

54
55
56
57
58
59
60


61
62
63
64
65
66
67
..
84
85
86
87
88
89
90


91
92
93
94
95
96
97
    method workspace {} { return $myworkspace }

    method importfiles {map} {
	# map = list (instruction), instruction = add|delta
	# add   = list ('A', path)
	# delta = list ('D', path, src)



	array set id {}
	$self InWorkspace

	set n   0
	set max [llength $map]

	foreach insn $map {
................................................................................
		    log write 8 fossil {Compressing <$pa>, as delta of <$pb>}

		    Do test-content-deltify $id($pa) $id($pb) 1
		}
	    }
	}
	$self RestorePwd


	return [array get id]
    }

    method finalize {destination} {
	file rename -force $myrepository $destination
	file delete -force $myworkspace
	$self destroy







>
>







 







>
>







54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
..
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
    method workspace {} { return $myworkspace }

    method importfiles {map} {
	# map = list (instruction), instruction = add|delta
	# add   = list ('A', path)
	# delta = list ('D', path, src)

	log write 3 fossil {Importing revisions...}

	array set id {}
	$self InWorkspace

	set n   0
	set max [llength $map]

	foreach insn $map {
................................................................................
		    log write 8 fossil {Compressing <$pa>, as delta of <$pb>}

		    Do test-content-deltify $id($pa) $id($pb) 1
		}
	    }
	}
	$self RestorePwd

	log write 3 fossil Done.
	return [array get id]
    }

    method finalize {destination} {
	file rename -force $myrepository $destination
	file delete -force $myworkspace
	$self destroy