-- { dg-do run }
|
-- { dg-do run }
|
|
|
with Ada.Containers.Vectors;
|
with Ada.Containers.Vectors;
|
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
|
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
|
procedure array3 is
|
procedure array3 is
|
type Method_Kinds is (Signal, Slot, Method);
|
type Method_Kinds is (Signal, Slot, Method);
|
|
|
package Unbounded_String_Vectors is
|
package Unbounded_String_Vectors is
|
new Ada.Containers.Vectors
|
new Ada.Containers.Vectors
|
(Positive, Ada.Strings.Unbounded.Unbounded_String);
|
(Positive, Ada.Strings.Unbounded.Unbounded_String);
|
|
|
Params_Vector : Unbounded_String_Vectors.Vector;
|
Params_Vector : Unbounded_String_Vectors.Vector;
|
|
|
type Method_Info is record
|
type Method_Info is record
|
Name : Ada.Strings.Unbounded.Unbounded_String;
|
Name : Ada.Strings.Unbounded.Unbounded_String;
|
Signature : Ada.Strings.Unbounded.Unbounded_String;
|
Signature : Ada.Strings.Unbounded.Unbounded_String;
|
Parameters : Unbounded_String_Vectors.Vector;
|
Parameters : Unbounded_String_Vectors.Vector;
|
Kind : Method_Kinds;
|
Kind : Method_Kinds;
|
end record;
|
end record;
|
|
|
package Method_Info_Vectors is
|
package Method_Info_Vectors is
|
new Ada.Containers.Vectors (Positive, Method_Info);
|
new Ada.Containers.Vectors (Positive, Method_Info);
|
|
|
Signals : Method_Info_Vectors.Vector;
|
Signals : Method_Info_Vectors.Vector;
|
begin
|
begin
|
|
|
Unbounded_String_Vectors.Append
|
Unbounded_String_Vectors.Append
|
(Params_Vector,
|
(Params_Vector,
|
Ada.Strings.Unbounded.To_Unbounded_String ("AAA"));
|
Ada.Strings.Unbounded.To_Unbounded_String ("AAA"));
|
|
|
Method_Info_Vectors.Append
|
Method_Info_Vectors.Append
|
(Signals,
|
(Signals,
|
(Name => To_Unbounded_String (""),
|
(Name => To_Unbounded_String (""),
|
Signature => To_Unbounded_String (""),
|
Signature => To_Unbounded_String (""),
|
Parameters => Params_Vector,
|
Parameters => Params_Vector,
|
Kind => Signal));
|
Kind => Signal));
|
end;
|
end;
|
|
|
