Re: Load an object from a file

["Thomas Løcke" <thomas.granvej6@gmail.com>]

Olivier Scalbert wrote:
> But I do not know what is the best (Ada) way of representing the array 
> of info constant_pool as the size is only known at run time.(= 
> constant_pool_cout).
> Also how can I fill this array ?
> 
> Thanks to help me and have a nice day.

Hey Olivier,

I don't know if it's the "best" way, but I would use 
Ada.Containers.Vector in your case. Here's a small example:

-----
with Ada.Text_IO;               use Ada.Text_IO;
with Ada.Containers.Vectors;    use Ada.Containers;

procedure Vec is
    type CP_Info_Type is new String (1 .. 3);
    package Constant_Pool_Container is new Vectors (Natural, CP_Info_Type);
    Constant_Pool : Constant_Pool_Container.Vector;
    CP_Info : CP_Info_Type;
begin
    CP_Info := "Foo";
    Constant_Pool.Append (New_Item => CP_Info);

    CP_Info := "Bar";
    Constant_Pool.Append (New_Item => CP_Info);

    CP_Info := "42!";
    Constant_Pool.Append (New_Item => CP_Info);

    for i in 0 .. Constant_Pool.Last_Index loop
       Put_Line (String (Constant_Pool.Element (Index => i)));
    end loop;
end Vec;
-----

If all goes well, output should be:

    Foo
    Bar
    42!

You can read more about Ada.Containers.Vectors here: 
http://adaic.org/standards/05rm/html/RM-A-18-2.html

:o)
/Thomas