mirror of
https://github.com/AdaCore/xmlada.git
synced 2026-02-12 12:30:28 -08:00
9dd5a102f3
For the purpose of sanity checking xmlada on VxWorks (and possibly other cross platforms), add cross-comilable examples, one per dom, sax and schema, that have all xml/xsd sources embedded in the test's main. Add new cross- and existing examples to the installation of xmlada. Change-Id: I56848955171a3b1f16f38bc3ecd7cef253af6346
25 lines
624 B
Ada
25 lines
624 B
Ada
--
|
|
-- Copyright (C) 2017, AdaCore
|
|
--
|
|
|
|
with Sax.Readers; use Sax.Readers;
|
|
with Input_Sources.File; use Input_Sources.File;
|
|
with SaxExample; use SaxExample;
|
|
|
|
procedure SaxExample_Main is
|
|
My_Reader : SaxExample.Reader;
|
|
Input : File_Input;
|
|
begin
|
|
Set_Public_Id (Input, "Preferences file");
|
|
Set_System_Id (Input, "pref.xml");
|
|
Open ("pref.xml", Input);
|
|
|
|
Set_Feature (My_Reader, Namespace_Prefixes_Feature, False);
|
|
Set_Feature (My_Reader, Namespace_Feature, False);
|
|
Set_Feature (My_Reader, Validation_Feature, False);
|
|
|
|
Parse (My_Reader, Input);
|
|
|
|
Close (Input);
|
|
end SaxExample_Main;
|