mirror of
https://github.com/mirage/qubes-mirage-firewall.git
synced 2024-09-28 19:55:39 +00:00
17 lines
379 B
OCaml
17 lines
379 B
OCaml
|
module Set = Set.Make(struct
|
||
|
|
type t = int
|
||
|
|
let compare a b = compare a b
|
||
|
|
end)
|
||
|
|
|
||
|
|
include Set
|
||
|
|
|
||
|
|
let rec pick_free_port ?(retries = 10) ~consult add_to =
|
||
|
|
let p = 1024 + Random.int (0xffff - 1024) in
|
||
|
|
if (mem p !consult || mem p !add_to) && retries <> 0
|
||
|
|
then pick_free_port ~retries:(retries - 1) ~consult add_to
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
add_to := add p !add_to;
|
||
|
|
p
|
||
|
|
end
|