Re: Using Ada.Containers.Vector and Limited Private types

["Jeffrey R. Carter" <spam.jrcarter.not@spam.acm.org>]

Gene wrote:
> 
> But as Dmitry pointed out, what I wrote has some portability risk.  To
> avoid this, just copy the bits you need into your own (non-limited)
> data structure.
> 
> with Ada.Text_IO;            use Ada.Text_IO;
> with Ada.Integer_Text_IO;    use Ada.Integer_Text_IO;
> with Ada.Containers.Vectors;
> with Ada.Directories;        use Ada.Directories;
> with Ada.Calendar;           use Ada.Calendar; -- for comparing  date/
> times
> 
> procedure List_By_Date is
> 
>    type String_Ptr_Type is access String;
>    type File_Info_Type is
>       record
>          Modification_Time : Time;
>          Simple_Name : String_Ptr_Type; -- Freed with storage pool!

I would recommend using Ada.Strings.Unbounded.Unbounded_String with its 
automatic and tested memory management over implementing new and untested memory 
allocation and management yourself.

-- 
Jeff Carter
"Well, a gala day is enough for me. I don't think
I can handle any more."
Duck Soup
93