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.

1 files changed, 2 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 02861521..dca1b9de 100644
--- a/lib.c
+++ b/lib.c
@@ -98,7 +98,7 @@ val eof_s, eol_s, assert_s, name_s;
 val error_s, type_error_s, internal_error_s;
 val numeric_error_s, range_error_s;
 val query_error_s, file_error_s, process_error_s, syntax_error_s;
-val system_error_s;
+val timeout_error_s, system_error_s;
 val gensym_counter_s;
 
 val nothrow_k, args_k, colon_k, auto_k, fun_k;
@@ -8304,6 +8304,7 @@ static void obj_init(void)
   process_error_s = intern(lit("process-error"), user_package);
   syntax_error_s = intern(lit("syntax-error"), user_package);
   system_error_s = intern(lit("system-error"), user_package);
+  timeout_error_s = intern(lit("timeout-error"), user_package);
   assert_s = intern(lit("assert"), user_package);
   name_s = intern(lit("name"), user_package);