30 lines
1.1 KiB
Ada
30 lines
1.1 KiB
Ada
----------------------------------------------------------------
|
|
-- IRONSIDES - DNS SERVER
|
|
--
|
|
-- By: Martin C. Carlisle and Barry S. Fagin
|
|
-- Department of Computer Science
|
|
-- United States Air Force Academy
|
|
--
|
|
-- This is free software; you can redistribute it and/or
|
|
-- modify without restriction. We do ask that you please keep
|
|
-- the original author information, and clearly indicate if the
|
|
-- software has been modified.
|
|
--
|
|
-- This software is distributed in the hope that it will be useful,
|
|
-- but WITHOUT ANY WARRANTY; without even the implied warranty
|
|
-- of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
----------------------------------------------------------------
|
|
|
|
WITH Gnat.Sockets;
|
|
|
|
package Socket_Timeout is
|
|
type Socket_Type is private;
|
|
-- NOTE: This is Windows specific. On Linux, this would be rewritten for microseconds.
|
|
procedure Set_Socket_Timeout(Socket : Socket_Type;
|
|
Milliseconds : Natural);
|
|
--# derives null from Socket, Milliseconds;
|
|
private
|
|
--# hide Socket_Timeout;
|
|
type Socket_Type is new Gnat.Sockets.Socket_Type;
|
|
end Socket_Timeout;
|