Parent Directory | Revision Log | Patch
revision 1.14 by spiralvoice, Sun Apr 24 19:44:16 2005 UTC | revision 1.15 by spiralvoice, Thu Jul 7 00:25:46 2005 UTC | |
---|---|---|
# | Line 184 let print_addr addr = | Line 184 let print_addr addr = |
184 | begin | begin |
185 | match addr with | match addr with |
186 | Unix.ADDR_INET(ip, port) -> | Unix.ADDR_INET(ip, port) -> |
187 | lprintf "ADDR_INET (%s, %d)" (Unix.string_of_inet_addr ip) port | lprintf_nl "ADDR_INET (%s, %d)" (Unix.string_of_inet_addr ip) port |
188 | | Unix.ADDR_UNIX s -> | | Unix.ADDR_UNIX s -> |
189 | lprintf "ADDR_UNIX (%s)" s; | lprintf_nl "ADDR_UNIX (%s)" s; |
190 | end; | end |
lprint_newline () | ||
191 | ||
192 | let max_delayed_send = 30 | let max_delayed_send = 30 |
193 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |