Fossil SCM
Added log output to make the log during file import more complete.
Commit
e60ba158215dea5ca57084010bea46b6b36ee425
Parent
970be48fce64bb2…
1 file changed
+4
| --- tools/cvs2fossil/lib/c2f_fossil.tcl | ||
| +++ tools/cvs2fossil/lib/c2f_fossil.tcl | ||
| @@ -56,10 +56,12 @@ | ||
| 56 | 56 | method importfiles {map} { |
| 57 | 57 | # map = list (instruction), instruction = add|delta |
| 58 | 58 | # add = list ('A', path) |
| 59 | 59 | # delta = list ('D', path, src) |
| 60 | 60 | |
| 61 | + log write 3 fossil {Importing revisions...} | |
| 62 | + | |
| 61 | 63 | array set id {} |
| 62 | 64 | $self InWorkspace |
| 63 | 65 | |
| 64 | 66 | set n 0 |
| 65 | 67 | set max [llength $map] |
| @@ -86,10 +88,12 @@ | ||
| 86 | 88 | Do test-content-deltify $id($pa) $id($pb) 1 |
| 87 | 89 | } |
| 88 | 90 | } |
| 89 | 91 | } |
| 90 | 92 | $self RestorePwd |
| 93 | + | |
| 94 | + log write 3 fossil Done. | |
| 91 | 95 | return [array get id] |
| 92 | 96 | } |
| 93 | 97 | |
| 94 | 98 | method finalize {destination} { |
| 95 | 99 | file rename -force $myrepository $destination |
| 96 | 100 |
| --- tools/cvs2fossil/lib/c2f_fossil.tcl | |
| +++ tools/cvs2fossil/lib/c2f_fossil.tcl | |
| @@ -56,10 +56,12 @@ | |
| 56 | method importfiles {map} { |
| 57 | # map = list (instruction), instruction = add|delta |
| 58 | # add = list ('A', path) |
| 59 | # delta = list ('D', path, src) |
| 60 | |
| 61 | array set id {} |
| 62 | $self InWorkspace |
| 63 | |
| 64 | set n 0 |
| 65 | set max [llength $map] |
| @@ -86,10 +88,12 @@ | |
| 86 | Do test-content-deltify $id($pa) $id($pb) 1 |
| 87 | } |
| 88 | } |
| 89 | } |
| 90 | $self RestorePwd |
| 91 | return [array get id] |
| 92 | } |
| 93 | |
| 94 | method finalize {destination} { |
| 95 | file rename -force $myrepository $destination |
| 96 |
| --- tools/cvs2fossil/lib/c2f_fossil.tcl | |
| +++ tools/cvs2fossil/lib/c2f_fossil.tcl | |
| @@ -56,10 +56,12 @@ | |
| 56 | method importfiles {map} { |
| 57 | # map = list (instruction), instruction = add|delta |
| 58 | # add = list ('A', path) |
| 59 | # delta = list ('D', path, src) |
| 60 | |
| 61 | log write 3 fossil {Importing revisions...} |
| 62 | |
| 63 | array set id {} |
| 64 | $self InWorkspace |
| 65 | |
| 66 | set n 0 |
| 67 | set max [llength $map] |
| @@ -86,10 +88,12 @@ | |
| 88 | Do test-content-deltify $id($pa) $id($pb) 1 |
| 89 | } |
| 90 | } |
| 91 | } |
| 92 | $self RestorePwd |
| 93 | |
| 94 | log write 3 fossil Done. |
| 95 | return [array get id] |
| 96 | } |
| 97 | |
| 98 | method finalize {destination} { |
| 99 | file rename -force $myrepository $destination |
| 100 |