1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
/***************************************************************************
* Copyright (C) 2005-2006 Nicolas Hadacek <[email protected]> *
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
***************************************************************************/
#include "xml_to_data.h"
#include <tqfile.h>
#include <tqtextstream.h>
TQDomElement XmlToData::findUniqueElement(TQDomElement parent, const TQString &tag,
const TQString &attribute, const TQString &value) const
{
TQDomElement element;
TQDomNode child = parent.firstChild();
while ( !child.isNull() ) {
if ( child.nodeName()==tag && child.isElement()
&& (attribute.isEmpty() || child.toElement().attribute(attribute)==value) ) {
if ( !element.isNull() ) tqFatal(TQString("Duplicated element \"%1/%2\"").arg(tag).arg(value));
element = child.toElement();
}
child = child.nextSibling();
}
return element;
}
void XmlToData::checkTagNames(TQDomElement element, const TQString &tag,
const TQStringList &names) const
{
TQDomNodeList list = element.elementsByTagName(tag);
for (uint i=0; i<uint(list.count()); i++) {
if ( !list.item(i).isElement() ) continue;
TQString name = list.item(i).toElement().attribute("name");
if ( names.find(name)==names.end() ) tqFatal(TQString("Illegal name %1 for %2 element").arg(name).arg(tag));
}
}
TQDomDocument XmlToData::parseFile(const TQString &filename) const
{
tqDebug("Parsing XML file \"%s\"...", filename.latin1());
TQFile file(filename);
if ( !file.open(IO_ReadOnly) ) tqFatal("Cannot open file!");
TQDomDocument doc;
TQString error;
int errorLine, errorColumn;
if ( !doc.setContent(&file, false, &error, &errorLine, &errorColumn) )
tqFatal(TQString("Error parsing XML file (%1 at line %2, column %3)").arg(error).arg(errorLine).arg(errorColumn));
return doc;
}
void XmlToData::warning(const TQString &message) const
{
if ( currentDevice().isEmpty() ) ::tqWarning("Warning: %s", message.latin1());
else ::tqWarning("Warning [%s]: %s", currentDevice().latin1(), message.latin1());
}
void XmlToData::tqFatal(const TQString &message) const
{
if ( currentDevice().isEmpty() ) ::tqFatal("Fatal: %s", message.latin1());
else ::tqFatal("Fatal [%s]: %s", currentDevice().latin1(), message.latin1());
}
void XmlToData::process()
{
parse();
tqDebug("Parsing XML successful.");
output();
tqDebug("Output written.");
}
|
