Re: Using generic package to store and retrieve string data

[Stephen Leake <stephen_leake@stephe-leake.org>]

On Friday, October 7, 2016 at 4:30:27 PM UTC-5, James Brewer wrote:
> Hey guys, I am trying to create a generic package that will take strings of a
> fixed length store them in an array one at a time and later remove them one 
> at a time. I was using a generic stack example I found on the net to get 
> started but I can't seem to get it to work for string data.

You did not show your instantiation of this, so I can't say what your problem might be.

Here is an instantiation that works:

with Ada.Text_Io; use Ada.Text_Io;
with Generic_Stack;
procedure Stack_Main
is

   subtype String_10 is String (1 .. 10);

   package Stack is new Generic_Stack
     (Size => 10,
      Item => String_10);

   Popped : String_10;
begin
   Put_Line ("Push '0123456789'");
   Stack.Push ("0123456789");
   Put_Line ("Push 'Hello.....'");
   Stack.Push ("Hello.....");

   Stack.Pop (Popped);
   Put_Line ("Popped: '" & Popped & "'");
   Stack.Pop (Popped);
   Put_Line ("Popped: '" & Popped & "'");
end Stack_Main;