+ (suck, callback)
+*)
+
+ (** tcp_server which use Unix.establish_server which in turn forks a child for
+ each request *)
+let ocaml_builtin ~sockaddr ~timeout callback =
+ let timeout_callback signo =
+ if signo = Sys.sigalrm then
+ exit 2
+ in
+ Unix.establish_server
+ (wrap_callback_w_timeout ~callback ~timeout ~timeout_callback)
+ sockaddr
+
+ (** tcp_server which doesn't fork, requests are server sequentially and in the
+ same address space of the calling process *)
+let simple ~sockaddr ~timeout callback =
+(* let (suck, callback) = init_socket_and_callback sockaddr callback timeout in *)
+ let suck = init_socket sockaddr in
+ let callback = init_callback callback timeout in