(** Conversion d'une chaîne de caratères en n° de port tcp *)
let
port_of_string
port
=
try
try
(
getservbyname
port
"tcp"
).
s_port
with
Not_found
->
int_of_string
port
with
_
->
raise
(
Failure
"port_of_string"
);;