Data update
This commit is contained in:
parent
4bb20c9b71
commit
cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
21
Task/XML-Input/Ada/xml-input-6.adb
Normal file
21
Task/XML-Input/Ada/xml-input-6.adb
Normal file
|
|
@ -0,0 +1,21 @@
|
|||
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;
|
||||
Loading…
Add table
Add a link
Reference in a new issue