Subversion Repositories openrisc

with Lto9_Pkg2;

package Lto9_Pkg1 is

   subtype Lengths is Natural range 0 .. 50;

   type Subscriber (NLen, ALen: Lengths := 50) is record

      Name    : String(1 .. NLen);

      Address : String(1 .. ALen);

   end record;

   type Subscriber_Ptr is access all Subscriber;

   package District_Subscription_Lists is new Lto9_Pkg2

     (Element_Type => Subscriber,

      Element_Ptr  => Subscriber_Ptr,

      Size         => 100);

   District_01_Subscribers : District_Subscription_Lists.List_Type;

   New_Subscriber_01 : aliased Subscriber :=

     (12, 23, "Brown, Silas", "King's Pyland, Dartmoor");

end Lto9_Pkg1;