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
|
--
-- Copyright (C) 2017, AdaCore
--
with Input_Sources.File; use Input_Sources.File;
with Sax.Readers; use Sax.Readers;
with DOM.Core; use DOM.Core;
with Schema.Dom_Readers; use Schema.Dom_Readers;
procedure DomSchemaExample is
Input : File_Input;
Reader : Schema.Dom_Readers.Tree_Reader;
Doc : Document;
begin
Set_Public_Id (Input, "Preferences file");
Open ("pref_with_xsd.xml", Input);
Set_Feature (Reader, Validation_Feature, False);
Parse (Reader, Input);
Close (Input);
Doc := Get_Tree (Reader);
Free (Reader);
end DomSchemaExample;
|
