Re: Nontrivial examples of C interface with Ada

[Julian Day <julianday.spam@trap.geocities.com>]

> Ted Dennison wrote:
>
> Sockets are a very good example. Sure, I could give it a Text_IO
> interface. But then how do I set my sockets to non-blocking? How do I
> adjust the mbufs? How do I send a message to multiple recepients? How do
> I write a server that detects TCP/IP timeouts from clients? I could go
> on and on here.

I hit on a similar issue a couple of years ago and 'dreamed' up what I
thought was quite a cute situation at the time.

pacakge Ada.Text_IO.C_Interface is
    type File_Descriptor_Type is new Interfaces.C.Int;    -- or similar
    function Associate (FD : File_Descriptor_Type) return
Ada.Text_IO.File_Type;
end Ada.Text_IO.C_Interface;

Since this is a child of Ada.Text_IO, it can fill out an appropriate
File_Type, and 'regular' Text_IO will then just work!

Julian