(* $Id$ * ---------------------------------------------------------------------- * *) external cots_connect : string -> string -> Unix.file_descr = "xti_cots_connect" ;;
