52 lines
2.0 KiB
Ada
52 lines
2.0 KiB
Ada
with
|
|
ada.Strings.unbounded,
|
|
ada.Text_IO;
|
|
|
|
|
|
package XML.Writer
|
|
is
|
|
use ada.Strings.unbounded;
|
|
|
|
|
|
procedure Start_Document (F : in ada.Text_IO.File_Type);
|
|
procedure End_Document (F : in ada.Text_IO.File_Type);
|
|
|
|
procedure Start (F : in ada.Text_IO.File_Type;
|
|
Name : in String;
|
|
Atts : in Attributes_view);
|
|
|
|
procedure Start (F : in ada.Text_IO.File_Type;
|
|
Name : in unbounded_String;
|
|
Atts : in Attributes_view);
|
|
|
|
procedure Finish (F : in ada.Text_IO.File_Type;
|
|
Name : in String);
|
|
|
|
procedure Finish (F : in ada.Text_IO.File_Type;
|
|
Name : in unbounded_String);
|
|
|
|
procedure Empty (F : in ada.Text_IO.File_Type;
|
|
Name : in String;
|
|
Atts : in Attributes_view);
|
|
|
|
procedure Empty (F : in ada.Text_IO.File_Type;
|
|
Name : in unbounded_String;
|
|
Atts : in Attributes_view);
|
|
|
|
function "+" (K, V : in String) return Attribute_t;
|
|
function "+" (K, V : in String) return Attributes_view;
|
|
function "+" (K : in unbounded_String;
|
|
V : in String) return Attribute_t;
|
|
function "+" (K : in unbounded_String;
|
|
V : in String) return Attributes_view;
|
|
function "+" (K : in String;
|
|
V : in unbounded_String) return Attribute_t;
|
|
function "+" (K : in String;
|
|
V : in unbounded_String) return Attributes_view;
|
|
|
|
function MkAtt (L, R : in Attribute_t) return Attributes_view;
|
|
function "&" (L, R : in Attribute_t) return Attributes_view;
|
|
function "&" (L : in Attributes_view; R: in Attribute_t) return Attributes_view;
|
|
|
|
end XML.Writer;
|