Hosted by
 |
with Parsers;
package XML_Parsers is
type XML_Parser is private;
function Current_Input
return XML_Parser;
function Open
(File_Name : in String)
return XML_Parser;
procedure Close
(X : in out XML_Parser);
No_More_Elements : exception;
Nested_Elements : exception;
function Next_Element
(X : in XML_Parser)
return String;
No_More_Attributes : exception;
function Next_Attribute
(X : in XML_Parser)
return String;
function Attribute_Value
(X : in XML_Parser)
return String;
procedure Descend
(X : in XML_Parser);
procedure Ascend
(X : in XML_Parser);
procedure Warning
(X : in XML_Parser;
Message : in String);
procedure Error
(X : in XML_Parser;
Message : in String);
private
type XML_Parser_Record is record
Parser : Parsers.Parser;
end record;
type XML_Parser is access XML_Parser_Record;
end XML_Parsers;
|