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
20 lines
554 B
Ada
20 lines
554 B
Ada
--
|
|
-- Copyright (C) 2017, AdaCore
|
|
--
|
|
|
|
with DOM.Readers; use DOM.Readers;
|
|
with Sax.Utils; use Sax.Utils;
|
|
with Sax.Readers; use Sax.Readers;
|
|
with Sax.Symbols; use Sax.Symbols;
|
|
|
|
package DOM_With_Location is
|
|
|
|
type Tree_Reader_With_Location is new Tree_Reader with null record;
|
|
overriding procedure Start_Element
|
|
(Handler : in out Tree_Reader_With_Location;
|
|
NS : Sax.Utils.XML_NS;
|
|
Local_Name : Sax.Symbols.Symbol;
|
|
Atts : Sax.Readers.Sax_Attribute_List);
|
|
|
|
end DOM_With_Location;
|