sig
  type t = IPv4 of int32 | IPv6 of int64 * int64
  val parse :
    string ->
    Ocsigen_pervasives.Ip_address.t * Ocsigen_pervasives.Ip_address.t option
  val match_ip :
    Ocsigen_pervasives.Ip_address.t * Ocsigen_pervasives.Ip_address.t option ->
    Ocsigen_pervasives.Ip_address.t -> bool
  exception No_such_host
  val get_inet_addr : string -> Unix.inet_addr Lwt.t
end