15 lines
501 B
Ada
15 lines
501 B
Ada
with Ada.Text_IO;
|
|
package body My_Reader is
|
|
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) is
|
|
begin
|
|
if Local_Name = "Student" then
|
|
Ada.Text_IO.Put_Line (Sax.Attributes.Get_Value (Atts, "Name"));
|
|
end if;
|
|
end Start_Element;
|
|
end My_Reader;
|