Differences From:

File tools/cvs2fossil/lib/c2f_pcollrev.tcl part of check-in [ec053168a8] - Nicer parser integration into pass II, and sort files for easier filesystem traversal during parsing. by aku on 2007-10-06 20:58:24. [view]

To:

File tools/cvs2fossil/lib/c2f_pcollrev.tcl part of check-in [be891232a2] - 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. by aku on 2007-10-12 05:57:53. [view]

@@ -191,9 +191,19 @@
 
 	    foreach file [$project files] {
 		set path [$file path]
 		log write 2 collrev "Parsing $path"
-		parser process [file join $base $path] $file
+		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