openapi_0.7.0_91e8ce6e/regtests/model/external.ads

 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;