From 6737b7efe2f4ef7ad4e8f6b2716ada469ef3913d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 15 Mar 2016 04:47:16 -0700 Subject: Implement socket timeouts. * lib.c (timeout_error_s): New symbol variable. (obj_init): Intern timeout-error, init new variable. * lib.h (timeout_error_s): Declared. * socket.c (sock_timeout, sock_send_timeout, sock_recv_timeout): New static functions. (sock_load_init): Register sock-send-timeout and sock-recv-timeout intrinsics. * stream.c (stdio_maybe_read_error, stdio_maybe_error): Convert EAGAIN into timeout_error_s. * txr.1: Documented. --- unwind.c | 1 + 1 file changed, 1 insertion(+) (limited to 'unwind.c') diff --git a/unwind.c b/unwind.c index dfc1d812..e7257896 100644 --- a/unwind.c +++ b/unwind.c @@ -862,6 +862,7 @@ void uw_init(void) uw_register_subtype(file_error_s, error_s); uw_register_subtype(process_error_s, error_s); uw_register_subtype(system_error_s, error_s); + uw_register_subtype(timeout_error_s, error_s); uw_register_subtype(assert_s, error_s); uw_register_subtype(syntax_error_s, error_s); } -- cgit v1.2.3