(*
 * Copyright (c) 2013 - 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! IStd

(** Contains current class and current method to be translated as well as local variables, *)

(** and the cg, cfg, and tenv corresponding to the current file. *)

module StmtMap = ClangPointers.Map

type curr_class = ContextClsDeclPtr of int | ContextNoCls [@@deriving compare]

type str_node_map = (string, Procdesc.Node.t) Caml.Hashtbl.t

type t =
  { translation_unit_context: CFrontend_config.translation_unit_context
  ; tenv: Tenv.t
  ; cfg: Cfg.t
  ; procdesc: Procdesc.t
  ; is_immediate_objc_method: bool
  ; immediate_curr_class: curr_class
  ; return_param_typ: Typ.t option
  ; outer_context: t option
        (** in case of objc blocks, the context of the method containing the block *)
  ; mutable blocks_static_vars: (Pvar.t * Typ.t) list Typ.Procname.Map.t
  ; label_map: str_node_map
  ; vars_to_destroy: Clang_ast_t.decl list StmtMap.t
        (** mapping from a statement to a list of variables, that go out of scope after the end of the
     statement *)
  }

val get_curr_class : t -> curr_class

val get_curr_class_typename : Clang_ast_t.stmt_info -> t -> Typ.Name.t

val get_curr_class_decl_ptr : Clang_ast_t.stmt_info -> curr_class -> Clang_ast_t.pointer

val is_objc_method : t -> bool

val create_context :
  CFrontend_config.translation_unit_context -> Tenv.t -> Cfg.t -> Procdesc.t -> curr_class
  -> Typ.t option -> bool -> t option -> Clang_ast_t.decl list StmtMap.t -> t

val add_block_static_var : t -> Typ.Procname.t -> Pvar.t * Typ.t -> unit

val is_objc_instance : t -> bool

val get_outer_procname : t -> Typ.Procname.t