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