(* Copyright (C) 2015, Thomas Leonard See the README file for details. *) open Fw_utils type port = int type ports = { sport : port; (* Source port *) dport : port; (* Destination *) } type host = [ `Client of client_link | `Client_gateway | `Firewall_uplink | `NetVM | `External of Ipaddr.t ] type info = { packet : Nat_packet.t; src : host; dst : host; proto : [ `UDP of ports | `TCP of ports | `ICMP | `Unknown ]; }