open Unix;; (** Ouverture et attachement d'une socket server à un port local *) let open_server port = let socket = socket PF_INET SOCK_STREAM 0 in setsockopt socket SO_REUSEADDR true; bind socket (ADDR_INET (inet_addr_any, port)); listen socket 20; socket;; |