Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Removed the automatic destruction of the traversed graph from the traversal core and put it into the caller (import only, currently). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b59cdc7f8a605c0baa16c27e603fbbb9 |
| User & Date: | aku 2007-12-06 03:56:07 |
Context
|
2007-12-06
| ||
| 03:58 | Extended traversal core to allow custom labeling of the log output immediately before the traversal starts. check-in: b81901ad user: aku tags: trunk | |
| 03:56 | Removed the automatic destruction of the traversed graph from the traversal core and put it into the caller (import only, currently). check-in: b59cdc7f user: aku tags: trunk | |
| 03:54 | Added progress feedback to the file import, and moved the log output to level 8. check-in: 08f80857 user: aku tags: trunk | |
Changes
Changes to tools/cvs2fossil/lib/c2f_file.tcl.
350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 |
set myimport 0 gtcore datacmd [mymethod ExpandData] gtcore formatcmd [mymethod ExpandFormat] gtcore sortcmd [mymethod ExpandSort] gtcore savecmd [mymethod Expand1 $ac $dir $max] gtcore traverse $ex ; # The graph is gone after the call close $ac # Now traverse the import graph, this builds the instruction # map for the fossil deltas. gtcore datacmd [mymethod ExpandData] gtcore formatcmd [mymethod ExpandFormat] gtcore sortcmd [mymethod ExpandSort] gtcore savecmd [mymethod Expand2] set myimport {} gtcore traverse $zp ; # The graph is gone after the call set filemap $myimport unset myimport # And back to import control return [list $filemap $revmap] } method ExpandData {graph node} { return [$graph node get $node revnr] } method ExpandFormat {graph item} { return <[lindex $item 1]> } ; # revnr method ExpandSort {graph candidates} { |
| | > > > |
350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 |
set myimport 0
gtcore datacmd [mymethod ExpandData]
gtcore formatcmd [mymethod ExpandFormat]
gtcore sortcmd [mymethod ExpandSort]
gtcore savecmd [mymethod Expand1 $ac $dir $max]
gtcore traverse $ex
close $ac
# Now traverse the import graph, this builds the instruction
# map for the fossil deltas.
gtcore datacmd [mymethod ExpandData]
gtcore formatcmd [mymethod ExpandFormat]
gtcore sortcmd [mymethod ExpandSort]
gtcore savecmd [mymethod Expand2]
set myimport {}
gtcore traverse $zp
set filemap $myimport
unset myimport
# And back to import control
$ex destroy
$zp destroy
return [list $filemap $revmap]
}
method ExpandData {graph node} { return [$graph node get $node revnr] }
method ExpandFormat {graph item} { return <[lindex $item 1]> } ; # revnr
method ExpandSort {graph candidates} {
|
Changes to tools/cvs2fossil/lib/c2f_gtcore.tcl.
59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
if {![llength [$graph nodes]]} break
CycleHook $graph
InitializeCandidates $graph
}
$graph destroy
log write 3 gtcore Done.
ClearHooks
return
}
# # ## ### ##### ######## #############
## Internal methods
|
< < |
59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
if {![llength [$graph nodes]]} break
CycleHook $graph
InitializeCandidates $graph
}
log write 3 gtcore Done.
ClearHooks
return
}
# # ## ### ##### ######## #############
## Internal methods
|