(*
 * Copyright (c) Facebook, Inc. and its affiliates.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 *)

open! IStd
module LoopHead = Procdesc.Node
module LoopHeads = Procdesc.NodeSet

module ControlMap : module type of PrettyPrintable.MakePPMap (Var)
(** Map control var -> loop head location *)

module GuardNodes : module type of AbstractDomain.FiniteSet (Procdesc.Node)

module ExitNodeToLoopHeads = Procdesc.NodeMap
(** Map exit node -> loop head set *)

module LoopHeadToGuardNodes = Procdesc.NodeMap
(** Map loop head -> prune nodes in the loop guard *)

type invariant_map

type loop_control_maps =
  { exit_map: LoopHeads.t ExitNodeToLoopHeads.t
  ; loop_head_to_guard_nodes: GuardNodes.t LoopHeadToGuardNodes.t }

val compute_invariant_map : Summary.t -> Tenv.t -> loop_control_maps -> invariant_map

val compute_control_vars :
     invariant_map
  -> LoopInvariant.VarsInLoop.t LoopHeadToGuardNodes.t
  -> LoopHead.t
  -> Location.t ControlMap.t