Not logged in
Diff

Differences From Artifact [3d675ee00a]:

  • File tools/cvs2fossil/lib/c2f_pcollrev.tcl — part of check-in [e45f47ec4a] at 2007-11-07 07:46:31 on branch trunk — Opcode synchronization reworked, optype table is master from which the in-memory array is loaded. (user: aku size: 20877)

To Artifact [978a2b3f74]:

  • File tools/cvs2fossil/lib/c2f_pcollrev.tcl — part of check-in [131f051880] at 2007-11-09 06:28:19 on branch trunk — Moved the paranoid integrity checks of pass 2 into a separate package for use by other passes, and changed pass 4 to also run these checks, albeit in a (slightly) relaxed form. See the comments at the point of call for the reason. This completes pass 4. (user: aku size: 21023)

19
20
21
22
23
24
25

26
27
28
29
30
31
32
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
326
327
328
329
330
331
332
333
334

335
336
337
338
339
340
341







+

-







	    }

	    $project purgeghostsymbols
	}

	repository printrevstatistics
	repository persistrev
	integrity  strict

	Paranoia
	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
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