Differences From Artifact [daf2ded7dd]:

• File tools/cvs2fossil/lib/c2f_pcollrev.tcl — part of check-in [ec053168a8] at 2007-10-06 20:58:24 on branch trunk — Nicer parser integration into pass II, and sort files for easier filesystem traversal during parsing. (user: aku size: 8327)

To Artifact [c79989ff1b]:

• File tools/cvs2fossil/lib/c2f_pcollrev.tcl — part of check-in [be891232a2] at 2007-10-12 05:57:53 on branch trunk — Extended rcs parser to tag errors which are syntax errors in the RCS archive. Extended pass handling to capture trouble and distinguish between internal problems and syntax errors. (user: aku size: 8563)

188
189
190
191
192
193
194

195









196
197
198
199
200
201
202

	foreach project [repository projects] {
	    set base [file join $rbase [$project base]]
	    log write 1 collrev "Processing $base"

	    foreach file [$project files] {
		set path [$file path]
		log write 2 collrev "Parsing $path"

		parser process [file join $base $path] $file









	    }
	}

	repository printrevstatistics
	repository persistrev

	log write 1 collrev "Scan completed"

>
|
>
>
>
>
>
>
>
>
>

188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212

	foreach project [repository projects] {
	    set base [file join $rbase [$project base]]
	    log write 1 collrev "Processing $base"

	    foreach file [$project files] {
		set path [$file path]
		log write 2 collrev "Parsing $path"
		if {[catch {
		    parser process [file join $base $path] $file
		} msg]} {
		    global errorCode
		    if {$errorCode eq "vc::rcs::parser"} {
			trouble fatal "$path is not a valid RCS archive ($msg)"
		    } else {
			global errorInfo
			trouble internal $errorInfo
		    }
		}
	    }
	}

	repository printrevstatistics
	repository persistrev

	log write 1 collrev "Scan completed"