1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | -- The Beer-Ware License (revision 42) -- -- Jacob Sparre Andersen <jacob@jacob-sparre.dk> wrote this. As long as you -- retain this notice you can do whatever you want with this stuff. If we meet -- some day, and you think this stuff is worth it, you can buy me a beer in -- return. -- -- Jacob Sparre Andersen with POSIX.IO; package GNAT.Sockets.Compatibility is function POSIX_File_Descriptor (Socket : in Socket_Type) return POSIX.IO.File_Descriptor; end GNAT.Sockets.Compatibility; |