open Unix;; open Inet;; (** Récupération des arguments *) let main () = if Array.length Sys.argv <> 2 then begin prerr_endline ("Usage: "^Sys.argv.(0)^" port"); exit 1 end else try establish_concurrent_server (treat_connection String.uppercase) (port_of_string Sys.argv.(1)) with Failure message -> prerr_endline message; exit 2;; main ();; |