Socket Options

[Simon Marlow]

On 26 June 2004 02:48, Glynn Clements wrote:

> You can't set the send/receive timeouts using that function; it always
> passes a C int (with the optlen parameter set to sizeof(int)). You
> would have to re-write it with a more flexible interface, e.g.:
> 
>> import Foreign
>> import Foreign.C
>> import Network.Socket hiding (setSocketOption)
>> 
>> foreign import CALLCONV unsafe "setsockopt"
>>   c_setsockopt :: CInt -> CInt -> CInt -> Ptr () -> CInt -> IO CInt
>> 
>> setSocketOption :: (Storable a) => Socket
>> 		-> SocketOption -- Option Name
>> 		-> a		-- Option Value
>> 		-> IO ()
>> setSocketOption (MkSocket s _ _ _ _) so v = do
>>    with v $ \ptr_v -> do
>>    throwErrnoIfMinus1_ "setSocketOption" $
>>        c_setsockopt s (socketOptLevel so) (packSocketOption so)
>>    (castPtr ptr_v) 	  (fromIntegral (sizeOf v)) return ()

I'm tempted to replace the current setSocketOption with this version.
Would anyone object?  Or perhaps we should include the new version under
a different name?

Cheers,
	Simon