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
37 lines
992 B
Ada
37 lines
992 B
Ada
--
|
|
-- Copyright (C) 2017, AdaCore
|
|
--
|
|
|
|
with Sax.Readers;
|
|
with Unicode.CES;
|
|
with Sax.Attributes;
|
|
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
|
|
|
|
package SaxExample is
|
|
|
|
type String_Access is access String;
|
|
|
|
type Reader is new Sax.Readers.Reader with record
|
|
Current_Pref : Unbounded_String;
|
|
Current_Value : Unbounded_String;
|
|
end record;
|
|
|
|
procedure Start_Element
|
|
(Handler : in out Reader;
|
|
Namespace_URI : Unicode.CES.Byte_Sequence := "";
|
|
Local_Name : Unicode.CES.Byte_Sequence := "";
|
|
Qname : Unicode.CES.Byte_Sequence := "";
|
|
Atts : Sax.Attributes.Attributes'Class);
|
|
|
|
procedure End_Element
|
|
(Handler : in out Reader;
|
|
Namespace_URI : Unicode.CES.Byte_Sequence := "";
|
|
Local_Name : Unicode.CES.Byte_Sequence := "";
|
|
Qname : Unicode.CES.Byte_Sequence := "");
|
|
|
|
procedure Characters
|
|
(Handler : in out Reader;
|
|
Ch : Unicode.CES.Byte_Sequence);
|
|
|
|
end SaxExample;
|