Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Broke package dependency cycle introduced when moving the cset load code from the InitCsets pass to the cset class. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9e1b461b2f7fd630e20515806ed0d3ed |
| User & Date: | aku 2008-01-30 08:23:36.000 |
Context
|
2008-01-30
| ||
| 08:25 | Added placeholder code to the fossil accessor class for the import of a revision. currently only logging the call. ... (check-in: f9e0d23d97 user: aku tags: trunk) | |
| 08:23 | Broke package dependency cycle introduced when moving the cset load code from the InitCsets pass to the cset class. ... (check-in: 9e1b461b2f user: aku tags: trunk) | |
| 08:20 | Extended log writing to handle multi-line log messages. ... (check-in: 81a297a66a user: aku tags: trunk) | |
Changes
Changes to tools/cvs2fossil/lib/c2f_pinitcsets.tcl.
| ︙ | ︙ | |||
112 113 114 115 116 117 118 | state use csitem state use cstype # Need the types first, the constructor used inside of the # 'load' below uses them to assert the correctness of type # names. project::rev getcstypes | | | 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 |
state use csitem
state use cstype
# Need the types first, the constructor used inside of the
# 'load' below uses them to assert the correctness of type
# names.
project::rev getcstypes
project::rev load ::vc::fossil::import::cvs::repository
project::rev loadcounter
return
}
typemethod run {} {
# Pass manager interface. Executed to perform the
# functionality of the pass.
|
| ︙ | ︙ |
Changes to tools/cvs2fossil/lib/c2f_prev.tcl.
| ︙ | ︙ | |||
18 19 20 21 22 23 24 | package require Tcl 8.4 ; # Required runtime. package require snit ; # OO system. package require struct::set ; # Set operations. package require vc::tools::misc ; # Text formatting package require vc::tools::trouble ; # Error reporting. package require vc::tools::log ; # User feedback. | < | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
package require Tcl 8.4 ; # Required runtime.
package require snit ; # OO system.
package require struct::set ; # Set operations.
package require vc::tools::misc ; # Text formatting
package require vc::tools::trouble ; # Error reporting.
package require vc::tools::log ; # User feedback.
package require vc::fossil::import::cvs::state ; # State storage.
package require vc::fossil::import::cvs::integrity ; # State integrity checks.
# # ## ### ##### ######## ############# #####################
##
snit::type ::vc::fossil::import::cvs::project::rev {
|
| ︙ | ︙ | |||
548 549 550 551 552 553 554 |
typemethod getcstypes {} {
foreach {tid name} [state run {
SELECT tid, name FROM cstype;
}] { set mycstype($name) $tid }
return
}
| | | | 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 |
typemethod getcstypes {} {
foreach {tid name} [state run {
SELECT tid, name FROM cstype;
}] { set mycstype($name) $tid }
return
}
typemethod load {repository} {
set n 0
log write 2 csets {Loading the changesets}
foreach {id pid cstype srcid} [state run {
SELECT C.cid, C.pid, CS.name, C.src
FROM changeset C, cstype CS
WHERE C.type = CS.tid
ORDER BY C.cid
}] {
log progress 2 csets $n {}
set r [$type %AUTO% [$repository projectof $pid] $cstype $srcid [state run {
SELECT C.iid
FROM csitem C
WHERE C.cid = $id
ORDER BY C.pos
}] $id]
incr n
}
|
| ︙ | ︙ | |||
1356 1357 1358 1359 1360 1361 1362 |
# # ## ### ##### ######## ############# #####################
##
namespace eval ::vc::fossil::import::cvs::project {
namespace export rev
namespace eval rev {
| < | 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 |
# # ## ### ##### ######## ############# #####################
##
namespace eval ::vc::fossil::import::cvs::project {
namespace export rev
namespace eval rev {
namespace import ::vc::fossil::import::cvs::state
namespace import ::vc::fossil::import::cvs::integrity
namespace import ::vc::tools::misc::*
namespace import ::vc::tools::trouble
namespace import ::vc::tools::log
log register csets
|
| ︙ | ︙ |