1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | with Ada.Strings.Unbounded; with Ada.Containers.Vectors; package External is type Stat_Type is record Count : Natural; Name : Ada.Strings.Unbounded.Unbounded_String; end record; package Stat_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => Stat_Type); subtype Stat_Vector is Stat_Vectors.Vector; end External; |