get_switches

Author: arjunguha

async/Async_OpenFlow.mli

@@ -184,6 +184,8 @@ module OpenFlow0x01 : sig
     open OpenFlow0x01_Core
     open OpenFlow0x01_Stats
 
+    val get_switches : t -> SDN_Types.switchId list
+
     val clear_flows
       :  ?pattern:pattern -> t -> Client_id.t
       -> (unit, exn) Deferred.Result.t

async/Async_OpenFlow0x01.ml

@@ -84,6 +84,8 @@ module Controller = struct
     let c_id = client_id_of_switch_exn t sw_id in
     ChunkController.has_client_id t.sub c_id
 
+  let get_switches t = SwitchMap.keys t.s2c
+
   let send t sw_id msg =
     let c_id = client_id_of_switch_exn t sw_id in
     ChunkController.send t.sub c_id (Message.marshal' msg)