22 lines
649 B
Ada
22 lines
649 B
Ada
with League.Strings;
|
|
with XML.SAX.Attributes;
|
|
with XML.SAX.Content_Handlers;
|
|
|
|
package Handlers is
|
|
|
|
type Handler is
|
|
limited new XML.SAX.Content_Handlers.SAX_Content_Handler with null record;
|
|
|
|
overriding procedure Start_Element
|
|
(Self : in out Handler;
|
|
Namespace_URI : League.Strings.Universal_String;
|
|
Local_Name : League.Strings.Universal_String;
|
|
Qualified_Name : League.Strings.Universal_String;
|
|
Attributes : XML.SAX.Attributes.SAX_Attributes;
|
|
Success : in out Boolean);
|
|
|
|
overriding function Error_String
|
|
(Self : Handler) return League.Strings.Universal_String;
|
|
|
|
end Handlers;
|