Re: Arrays and Access types...

[James Rogers <jimmaureenrogers@worldnet.att.net>]

"Eric G. Miller" wrote:
> 
> On Fri, 26 Oct 2001 05:39:09 GMT, James Rogers <jimmaureenrogers@worldnet.att.net> wrote:
> 
> > --- Slicable array package
> > generic
> >    Max_Size : Positive;
> >    type Element is private;
> > package Slicing_Array is
> >
> >    subtype Array_Index is Positive range 1..Max_Size;
> >    type Element_Array is array(Array_Index range <>) of Element;
> >    type Slicable_Array is private;
> 

Try this example driver program to see how to instantiate a generic
package.

with Slicing_Array;
with Ada.Text_Io;

procedure Slicing_Test is
   Length : Positive := 10;
   package Slicing_Chars is new Slicing_Array
     (Max_Size => Length, Element => Character);

   procedure Print_Chars(Item : Slicable_Array) is
      Temp : Slicing_Chars.Element_Array(First(Item)..Last(Item));
   begin
      Temp := Slicing_Chars.To_Array(Item);
      for index in Temp'Range loop
         Ada.Text_IO.Put(Temp(index));
      end loop;
      Ada.Text_IO.New_Line;
   end Print_Chars;
   My_String : Slicing_Chars.Slicable_Array;
   Simple_String : Slicing_Chars.Element_Array(1..Length);
begin
   for index in 1..10 loop
      Simple_String(index) := character'Val(Character'Pos('a') + index);
   end loop;
   My_String := Slicing_Chars.Create(Simple_String);
   Print_Chars(My_String);
   for num in reverse 1..10 loop
      Slicing_Chars.Slice(Item => My_String, 
                          First => 1, Last => Num);
      Print_Chars(My_String);
   end loop;
end Slicing_Test;

Jim Rogers
Colorado Springs, Colorado USA