Hosted by
 |
with Ada.Strings.Unbounded;
use Ada.Strings.Unbounded;
with Lists;
package String_Lists is
package US_Lists is new Lists(Unbounded_String);
subtype List is US_Lists.List;
procedure Push
(This : in out List;
Content : in String);
procedure Unshift
(This : in out List;
Content : in String);
function Count
(This : in List)
return Natural
renames US_Lists.Count;
function Empty
(This : in List)
return Boolean
renames US_Lists.Empty;
function Index
(This : in List)
return Natural
renames US_Lists.Index;
procedure Reset
(This : in List)
renames US_Lists.Reset;
procedure Next
(This : in List)
renames US_Lists.Next;
function Next
(This : in List)
return Boolean
renames US_Lists.Next;
function End_Of_List
(This : in List)
return Boolean
renames US_Lists.End_Of_List;
function Current
(This : in List)
return String;
procedure Update_Current
(This : in out List;
Content : in String);
procedure Remove_Current
(This : in out List)
renames US_Lists.Remove_Current;
procedure Insert_Before_Current
(This : in out List;
Content : in String);
procedure Insert_After_Current
(This : in out List;
Content : in String);
end String_Lists;
|