Hosted by
 |
package body String_Lists is
procedure Push
(This : in out List;
Content : in String) is
begin
US_Lists.Push(This, To_Unbounded_String(Content));
end Push;
procedure Unshift
(This : in out List;
Content : in String) is
begin
US_Lists.Unshift(This, To_Unbounded_String(Content));
end Unshift;
function Current
(This : in List)
return String is
begin
return To_String(US_Lists.Current(This));
end Current;
procedure Update_Current
(This : in out List;
Content : in String) is
begin
US_Lists.Update_Current(This, To_Unbounded_String(Content));
end Update_Current;
procedure Insert_Before_Current
(This : in out List;
Content : in String) is
begin
US_Lists.Insert_Before_Current(This, To_Unbounded_String(Content));
end Insert_Before_Current;
procedure Insert_After_Current
(This : in out List;
Content : in String) is
begin
US_Lists.Insert_After_Current(This, To_Unbounded_String(Content));
end Insert_After_Current;
end String_Lists;
|