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;