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
|
{$MODE objfpc}
{$H+}
program xmldump;
uses sysutils, DOM, xmlread;
const
NodeNames: array[ELEMENT_NODE..NOTATION_NODE] of String = (
'Element',
'Attribute',
'Text',
'CDATA section',
'Entity reference',
'Entity',
'Processing instruction',
'Comment',
'Document',
'Document type',
'Document fragment',
'Notation'
);
procedure DumpNode(node: TDOMNode; spc: String);
var
i: Integer;
attr: TDOMNode;
begin
Write(spc, NodeNames[node.NodeType]);
if Copy(node.NodeName, 1, 1) <> '#' then
Write(' "', node.NodeName, '"');
if node.NodeValue <> '' then
Write(' "', node.NodeValue, '"');
if (node.Attributes <> nil) and (node.Attributes.Length > 0) then begin
Write(',');
for i := 0 to node.Attributes.Length - 1 do begin
attr := node.Attributes.Item[i];
Write(' ', attr.NodeName, ' = "', attr.NodeValue, '"');
end;
end;
WriteLn;
if node.FirstChild <> nil then
DumpNode(node.FirstChild, spc + ' ');
if node.NextSibling <> nil then
DumpNode(node.NextSibling, spc);
end;
var
xml: TXMLDocument;
begin
if ParamCount <> 1 then begin
WriteLn('xmldump <xml or dtd file>');
exit;
end;
if UpCase(ExtractFileExt(ParamStr(1))) = '.DTD' then
ReadDTDFile(xml,ParamStr(1))
else
ReadXMLFile(xml,ParamStr(1));
WriteLn('Successfully parsed the document. Structure:');
WriteLn;
if Assigned(xml.DocType) then
begin
WriteLn('DocType: "', xml.DocType.Name, '"');
WriteLn;
end;
DumpNode(xml, '| ');
xml.Free;
end.
|
