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
72
73
74
75
76
77
78
79
80

// $Id: xmldump.pp,v 1.4 2005/02/14 17:13:18 peter Exp $
 
{$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.
 
 
{  $Log: xmldump.pp,v $
  Revision 1.4  2005/02/14 17:13:18  peter
    * truncate log
 
}