further progress on the new XML processing modules
This commit is contained in:
parent
f721ddd75b
commit
16c0beb27c
10 changed files with 112 additions and 14 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue