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 Ada.Text_IO; use Ada.Text_IO;
with Sax.Readers; use Sax.Readers;
with Schema.Readers; use Schema.Readers;
with Schema.Validators;
with Input_Sources.File; use Input_Sources.File;
procedure SchemaExample is
Input : File_Input;
My_Reader : Validating_Reader;
begin
Set_Public_Id (Input, "Preferences file");
Open ("pref.xml", Input);
Set_Feature (My_Reader, Schema_Validation_Feature, True);
Parse (My_Reader, Input);
Close (Input);
exception
when Schema.Validators.XML_Validation_Error =>
Put_Line ("ERROR: " & Get_Error_Message (My_Reader));
end SchemaExample;
|
