|
|
|
|
/*
|
|
|
|
|
* 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.
|
|
|
|
|
* vim: set ft=rust:
|
|
|
|
|
* vim: set ft=reason:
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
open! Utils;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Module for Type Environments. */
|
|
|
|
|
type t; /** Type for type environment. */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Add a (name,typename) pair to the global type environment. */
|
|
|
|
|
let add: t => Typename.t => Sil.struct_typ => unit;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Create a new type environment. */
|
|
|
|
|
let create: unit => t;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Expand a type if it is a typename by looking it up in the type environment. */
|
|
|
|
|
let expand_type: t => Sil.typ => Sil.typ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Fold a function over the elements of the type environment. */
|
|
|
|
|
let fold: (Typename.t => Sil.struct_typ => 'a => 'a) => t => 'a => 'a;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** iterate over a type environment */
|
|
|
|
|
let iter: (Typename.t => Sil.struct_typ => unit) => t => unit;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Load a type environment from a file */
|
|
|
|
|
let load_from_file: DB.filename => option t;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Look up a name in the global type environment. */
|
|
|
|
|
let lookup: t => Typename.t => option Sil.struct_typ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Lookup Java types by name. */
|
|
|
|
|
let lookup_java_typ_from_string: t => string => option Sil.typ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** resolve a type string to a Java *class* type. For strings that may represent primitive or array
|
|
|
|
|
typs, use [lookup_java_typ_from_string]. */
|
|
|
|
|
let lookup_java_class_from_string: t => string => option Sil.struct_typ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Return the declaring class type of [pname_java] */
|
|
|
|
|
let proc_extract_declaring_class_typ: t => Procname.java => option Sil.struct_typ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Return the return type of [pname_java]. */
|
|
|
|
|
let proc_extract_return_typ: t => Procname.java => option Sil.typ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Check if typename is found in t */
|
|
|
|
|
let mem: t => Typename.t => bool;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** print a type environment */
|
|
|
|
|
let pp: Format.formatter => t => unit;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Save a type environment into a file */
|
|
|
|
|
let store_to_file: DB.filename => t => unit;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/** Get method that is being overriden by java_pname (if any) **/
|
|
|
|
|
let get_overriden_method: t => Procname.java => option Procname.t;
|
