further progress on the new XML processing modules

This commit is contained in:
Andreas Rumpf 2010-02-12 00:03:18 +01:00
commit 16c0beb27c
10 changed files with 112 additions and 14 deletions

View file

@ -196,6 +196,12 @@ proc errorMsgExpected*(my: TXmlParser, tag: string): string =
## other error messages
result = "$1($2, $3) Error: $4" % [
my.filename, $getLine(my), $getColumn(my), "<$1> expected" % tag]
proc errorMsg*(my: TXmlParser, msg: string): string =
## returns an error message with text `msg` in the same format as the
## other error messages
result = "$1($2, $3) Error: $4" % [
my.filename, $getLine(my), $getColumn(my), msg]
proc markError(my: var TXmlParser, kind: TXmlError) {.inline.} =
my.err = kind