infer_clone/infer/src/checkers/var.ml

(*
 * Copyright (c) 2016 - present Facebook, Inc.
 * All rights reserved.
 *
 * This source code is licensed under the BSD style license found in the
 * LICENSE file in the root directory of this source tree. An additional grant
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

open! Utils

(** Single abstraction for all the kinds of variables in SIL *)

type t =
  | LogicalVar of Ident.t
  | ProgramVar of Pvar.t
[@@deriving compare]

let equal v1 v2 =
  compare v1 v2 = 0

let of_id id =
  LogicalVar id

let of_pvar pvar =
  ProgramVar pvar

let to_exp = function
  | ProgramVar pvar -> Exp.Lvar pvar
  | LogicalVar id -> Exp.Var id

let pp fmt = function
  | ProgramVar pv -> (Pvar.pp pe_text) fmt pv
  | LogicalVar id -> (Ident.pp pe_text) fmt id

module Map = PrettyPrintable.MakePPMap(struct
    type nonrec t = t
    let compare = compare
    let pp_key = pp
  end)

module Set = PrettyPrintable.MakePPSet(struct
    type nonrec t = t
    let compare = compare
    let pp_element = pp
  end)