Re: GNAT/Ada95 Streams Performance Issue

[lutz@iks-jena.de (Lutz Donnerhacke)]

* Robert Dewar wrote:
>That certainly makes more sense. The trouble is of course
>that with Direct_IO you can't deal nicely with the last
>partial block (you are also depending very much on impl
>dependent choices in how Direct_IO works).
>
>Stream_IO should have the speed advantage without these
>disadvantages.

Sorry, don't take this to serious:

...
   function copy (
     in_fd, out_fd : OS_File_T;
     offset        : access OS_Off_T;
     count         : OS_Size_T
   ) return OS_SSize_T;
   pragma Import(C, copy, "sendfile");
   offset : aliased OS_Off_T := OS_Off_T'First;
   send   : OS_SSize_T :=
     copy (in_fd, out_fd, offset'Access, OS_Size_T'Last);
begin
   if send = -1 then
      Put_Line ("Error ...");
   else
      Put_Line ("Copied" & OS_SSize_T'Image (send) & " Bytes.");
   end if;
end;