-import PackedString ( cByteArrayToPS, unpackPS, unpackCStringIO )
-
-import PosixUtil ( unvectorize )
+import CString ( unpackCStringIO, unpackCStringBA, unvectorize )
else unpackProtocolEntry ptr
--getProtocolByNumber :: ProtocolNumber -> IO ProtocolEntry
getProtocolByNumber num = do
ptr <- _ccall_ getprotobynumber num
if ptr == nullAddr
else unpackProtocolEntry ptr
--getProtocolByNumber :: ProtocolNumber -> IO ProtocolEntry
getProtocolByNumber num = do
ptr <- _ccall_ getprotobynumber num
if ptr == nullAddr
else unpackNetworkEntry ptr
getNetworkByAddr :: NetworkAddr -> Family -> IO NetworkEntry
getNetworkByAddr addr family = do
ptr <- _ccall_ getnetbyaddr addr (packFamily family)
if ptr == nullAddr
else unpackNetworkEntry ptr
getNetworkByAddr :: NetworkAddr -> Family -> IO NetworkEntry
getNetworkByAddr addr family = do
ptr <- _ccall_ getnetbyaddr addr (packFamily family)
if ptr == nullAddr
ba <- stToIO (unsafeFreezeByteArray ptr)
if rc == -1
then fail (userError "getHostName: unable to determine host name")
ba <- stToIO (unsafeFreezeByteArray ptr)
if rc == -1
then fail (userError "getHostName: unable to determine host name")