Add initial prototype.

1-base/xml/source/xml.ads

@@ -0,0 +1,107 @@
+private
+with
+     ada.Strings.unbounded,
+     ada.Containers.vectors;
+
+
+package XML
+--
+-- Provides simple XML reader/writer support.
+--
+-- Heavily based on Chip Richards Ada XML packages.
+--
+is
+
+   --- Attribute type
+   --
+
+   type Attribute_t     is tagged private;
+   type Attributes_t    is array (Positive range <>) of aliased Attribute_t;
+
+   type Attributes_view is access all Attributes_t;
+
+
+   function Name  (Self : in Attribute_t) return String;
+   function Value (Self : in Attribute_t) return String;
+
+
+
+   --- Element type
+   --
+
+   type Element  is tagged private;
+   type Elements is array (Positive range <>) of access Element;
+
+
+
+   -- Construction
+   --
+
+   function to_XML (Filename : in String) return Element;
+   --
+   -- Parses 'Filename' and returns the root node Element of the parsed XML tree.
+
+
+
+   -- Attributes
+   --
+
+   function  Name       (Self : in     Element) return String;
+   function  Attributes (Self : in     Element) return Attributes_t;
+   function  Data       (Self : in     Element) return String;
+
+   function  Attribute  (Self : in     Element;   Named : in String) return access Attribute_t'Class;
+   --
+   -- Returns null if the named attribute does not exist.
+
+
+   -- Hierachy
+   --
+
+   function  Parent     (Self : in     Element) return access Element;
+   function  Children   (Self : in     Element) return Elements;
+
+
+   function  Child      (Self : in     Element;   Named : in String) return access Element;
+   --
+   -- Returns null if the named child does not exist.
+
+
+   function  Children   (Self : in     Element;   Named : in String) return Elements;
+
+   procedure add_Child  (Self : in out Element;   the_Child : access Element);
+
+
+
+
+
+private
+
+   use ada.Strings.unbounded;
+
+
+   type Attribute_t is tagged
+      record
+         Name  : unbounded_String;
+         Value : unbounded_String;
+      end record;
+
+
+
+   type Element_view    is access all Element;
+
+   package element_Vectors is new ada.containers.Vectors (Positive, Element_view);
+   subtype element_Vector  is element_vectors.Vector;
+
+
+   type Element is tagged
+      record
+         Name       : unbounded_String;
+         Attributes : Attributes_view;
+         Data       : unbounded_String;
+
+         Parent     : Element_view;
+         Children   : element_Vector;
+      end record;
+
+end XML;