Re: Efficiently setting up large quantities of constant data

[Simon Wright <simon@pushface.org>]

In a spec ...

   type String_P is access constant String;

   type Stream_Element_Array_P is
     access constant Ada.Streams.Stream_Element_Array;

   type Format is
     (HTML,
      Plain,
      JPEG,
      GIF,
      PNG,
      OCTET_STREAM);

   type URL_Info is record
      URL : String_P;
      Doc : Stream_Element_Array_P;
      Form : Format;
   end record;

   type URL_Info_Array is array (Positive range <>) of URL_Info;
   type URL_Info_Array_P is access constant URL_Info_Array;

in a body ...

   Url_1 : aliased constant String := "/index.html";
   Doc_1 : aliased constant Stream_Element_Array :=
     (
      60, 33, 45, 45, 32, 36, 73, 100, 58, 32, 105, 110,
      100, 101, 120, 46, 104, 116, 109, 108, 44, 118, 32, 49,
.......
      108, 62
     );
   Documents : aliased constant Url_Info_Array :=
     (
      1 => (Url => Url_1'Access, Doc => Doc_1'Access, Form => HTML)
     );
   function Static_Urls return Url_Info_Array_P is
   begin
      return Documents'Access;
   end Static_Urls;


(on looking at this, I'm a bit surprised that I didn't need to say
'all' ..)

-- 
Simon Wright                               100% Ada, no bugs.