Differences From:

File tools/cvs2fossil/lib/rcsparser.tcl part of check-in [338854a61a] - API tweak rcs parser, definition of symbols, call through the callback once per symbol instead of once for the whole set. by aku on 2007-10-10 04:23:22. [view]

To:

File tools/cvs2fossil/lib/rcsparser.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]

@@ -367,9 +367,10 @@
     proc Expected {x} {
 	::variable mydata
 	::variable mypos
 	set e $mypos ; incr e 30
-	return -code error "Expected $x @ '[string range $mydata $mypos $e]...'"
+	return -code error -errorcode vc::rcs::parser \
+	    "Expected $x @ '[string range $mydata $mypos $e]...'"
     }
 
     # # ## ### ##### ######## #############
     ## Setup, callbacks.