You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
60 lines
1.9 KiB
60 lines
1.9 KiB
(*
|
|
* 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! IStd
|
|
|
|
(** Module for Type Environments. *)
|
|
|
|
(** Type for type environment. *)
|
|
type t
|
|
|
|
val add : t -> Typ.Name.t -> Typ.Struct.t -> unit
|
|
(** Add a (name,typename) pair to the global type environment. *)
|
|
|
|
val create : unit -> t
|
|
(** Create a new type environment. *)
|
|
|
|
val fold : (Typ.Name.t -> Typ.Struct.t -> 'a -> 'a) -> t -> 'a -> 'a
|
|
(** Fold a function over the elements of the type environment. *)
|
|
|
|
val iter : (Typ.Name.t -> Typ.Struct.t -> unit) -> t -> unit
|
|
(** iterate over a type environment *)
|
|
|
|
val load_from_file : DB.filename -> t option
|
|
(** Load a type environment from a file *)
|
|
|
|
val lookup : t -> Typ.Name.t -> Typ.Struct.t option
|
|
(** Look up a name in the global type environment. *)
|
|
|
|
val mk_struct :
|
|
t -> ?default:Typ.Struct.t -> ?fields:Typ.Struct.fields -> ?statics:Typ.Struct.fields
|
|
-> ?methods:Typ.Procname.t list -> ?supers:Typ.Name.t list -> ?annots:Annot.Item.t -> Typ.Name.t
|
|
-> Typ.Struct.t
|
|
(** Construct a struct_typ, normalizing field types *)
|
|
|
|
val add_field : t -> Typ.Name.t -> Typ.Struct.field -> unit
|
|
(** Add a field to a given struct in the global type environment. *)
|
|
|
|
val sort_fields_tenv : t -> unit
|
|
|
|
val mem : t -> Typ.Name.t -> bool
|
|
(** Check if typename is found in t *)
|
|
|
|
val pp : Format.formatter -> t -> unit
|
|
(** print a type environment *)
|
|
|
|
val store_to_file : DB.filename -> t -> unit
|
|
(** Save a type environment into a file *)
|
|
|
|
val get_overriden_method : t -> Typ.Procname.java -> Typ.Procname.t option
|
|
(** Get method that is being overriden by java_pname (if any) **)
|
|
|
|
val language_is : t -> Config.language -> bool
|
|
(** Test the language from which the types in the tenv were translated *)
|