19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
package require Tcl 8.4 ; # Required runtime.
package require snit ; # OO system.
package require vc::tools::trouble ; # Error reporting.
package require vc::tools::log ; # User feedback.
package require vc::fossil::import::cvs::pass ; # Pass management.
package require vc::fossil::import::cvs::repository ; # Repository management.
package require vc::fossil::import::cvs::state ; # State storage.
package require vc::fossil::import::cvs::project::sym ; # Project level symbols.
package require vc::fossil::import::cvs::file::rev ; # File level revisions.
package require vc::rcs::parser ; # Rcs archive data extraction.
# # ## ### ##### ######## ############# #####################
## Register the pass with the management
|
>
|
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
package require Tcl 8.4 ; # Required runtime.
package require snit ; # OO system.
package require vc::tools::trouble ; # Error reporting.
package require vc::tools::log ; # User feedback.
package require vc::fossil::import::cvs::pass ; # Pass management.
package require vc::fossil::import::cvs::repository ; # Repository management.
package require vc::fossil::import::cvs::state ; # State storage.
package require vc::fossil::import::cvs::integrity ; # State integrity checks.
package require vc::fossil::import::cvs::project::sym ; # Project level symbols.
package require vc::fossil::import::cvs::file::rev ; # File level revisions.
package require vc::rcs::parser ; # Rcs archive data extraction.
# # ## ### ##### ######## ############# #####################
## Register the pass with the management
|
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
|
}
$project purgeghostsymbols
}
repository printrevstatistics
repository persistrev
Paranoia
|
>
<
|
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
|
}
$project purgeghostsymbols
}
repository printrevstatistics
repository persistrev
integrity strict
log write 1 collrev "Scan completed"
return
}
typemethod discard {} {
# Pass manager interface. Executed for all passes after the
# run passes, to remove all data of this pass from the state,
|
606
607
608
609
610
611
612
613
614
615
616
617
618
619
|
namespace eval ::vc::fossil::import::cvs::pass {
namespace export collrev
namespace eval collrev {
namespace import ::vc::rcs::parser
namespace import ::vc::fossil::import::cvs::repository
namespace import ::vc::fossil::import::cvs::state
namespace eval project {
namespace import ::vc::fossil::import::cvs::project::sym
}
namespace eval file {
namespace import ::vc::fossil::import::cvs::file::rev
}
namespace import ::vc::tools::trouble
|
>
|
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
|
namespace eval ::vc::fossil::import::cvs::pass {
namespace export collrev
namespace eval collrev {
namespace import ::vc::rcs::parser
namespace import ::vc::fossil::import::cvs::repository
namespace import ::vc::fossil::import::cvs::state
namespace import ::vc::fossil::import::cvs::integrity
namespace eval project {
namespace import ::vc::fossil::import::cvs::project::sym
}
namespace eval file {
namespace import ::vc::fossil::import::cvs::file::rev
}
namespace import ::vc::tools::trouble
|