Update of /cvsroot/flexml/flexml
In directory sc8-pr-cvs17:/tmp/cvs-serv16570
Modified Files:
flexml.pl
Log Message:
Improve the error message when receiving an opening tag instead of
the expected closing tag. This happens at least when the DTD
enforces the tag order and this order is not followed.
Index: flexml.pl
===================================================================
RCS file: /cvsroot/flexml/flexml/flexml.pl,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -d -r1.61 -r1.62
--- flexml.pl 13 Sep 2006 16:34:33 -0000 1.61
+++ flexml.pl 11 Oct 2007 10:00:14 -0000 1.62
@@ -1512,6 +1512,8 @@
# Errors when expecting end tag.
print " \"</\"{Name}{s}\">\" FAIL(\"Unexpected end-tag `%s': `</$tag>' expected.\",yytext);\n"
unless $nofail;
+ print " \"<\"{Name}{s}\"\" FAIL(\"Unexpected start-tag `%s>': `</$tag>' expected.\",yytext);\n"
+ unless $nofail;
print " . FAIL(\"Unexpected character `%c': `</$tag>' expected.\",yytext[0]);\n"
unless $mixed{$tag} or $nofail;
print " <<EOF>> FAIL(\"Premature EOF: `</$tag>' expected.\");\n" unless $nofail;
|
