1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
   |  
 
    Spawn_Result.File_Content := new Variadic_Array(1..1);
 
    Text_Io.Open(File, Text_Io.In_File, (-Spawn_Result.Output_File));
    while not Text_Io.End_Of_File(File) loop
 
       declare
 
          Line : constant String := Text_Io.Get_Line(File);
          Buffer : Variadic_Array(1..Spawn_Result.File_Content'Length+1);
        begin
 
           if Spawn_Result.File_Content /= null then
 
              Buffer(Buffer'First..Buffer'Last-1) := Spawn_Result.File_Content.all;
 
           end if;
 
            Buffer(Buffer'Last) := (+Line);
 
            Spawn_Result.File_Content := new Variadic_Array ' (Buffer);
        end;
    end loop; | 
Partager