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.
78 lines
2.4 KiB
78 lines
2.4 KiB
(*
|
|
* 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 F = Format
|
|
module L = Logging
|
|
|
|
(**
|
|
If fn is empty, prints [pp_lhs_alone lhs]
|
|
Otherwise prints [pp_lhs lhs ^ sep ^ fn]
|
|
|
|
Create invisible phantom fields by giving them a name ending in '.'
|
|
The name preceeding the '.' will be used in debug mode.
|
|
*)
|
|
let pp ~pp_lhs ~pp_lhs_alone ~sep f lhs fn =
|
|
let fieldname = Typ.Fieldname.to_flat_string fn in
|
|
if String.is_empty fieldname then
|
|
if Config.bo_debug > 0 then
|
|
let fieldname =
|
|
Option.value ~default:""
|
|
(Typ.Fieldname.to_simplified_string fn |> String.chop_suffix ~suffix:".")
|
|
in
|
|
F.fprintf f "%a%s%s" pp_lhs lhs sep fieldname
|
|
else pp_lhs_alone f lhs
|
|
else F.fprintf f "%a%s%s" pp_lhs lhs sep fieldname
|
|
|
|
|
|
let mk, get_type =
|
|
let classname = "__infer__" in
|
|
let types = ref Typ.Fieldname.Map.empty in
|
|
let mk ?cpp_classname name typ =
|
|
let fieldname =
|
|
match cpp_classname with
|
|
| None ->
|
|
let fullname = Format.sprintf "%s.%s" classname name in
|
|
Typ.Fieldname.Java.from_string fullname
|
|
| Some classname ->
|
|
Typ.Fieldname.Clang.from_class_name classname name
|
|
in
|
|
types := Typ.Fieldname.Map.add fieldname typ !types ;
|
|
fieldname
|
|
in
|
|
let get_type fn = Typ.Fieldname.Map.find_opt fn !types in
|
|
(mk, get_type)
|
|
|
|
|
|
let java_collection_internal_array = mk "java.collection.elements" Typ.(mk_array void)
|
|
|
|
let is_java_collection_internal_array fn = Typ.Fieldname.equal fn java_collection_internal_array
|
|
|
|
let c_strlen () =
|
|
if Language.curr_language_is Java then mk "length" Typ.uint else mk "c.strlen" Typ.uint
|
|
|
|
|
|
let cpp_vector_elem_str = "cpp.vector_elem"
|
|
|
|
let cpp_vector_elem ~vec_typ ~elt_typ =
|
|
let classname =
|
|
match vec_typ.Typ.desc with
|
|
| Typ.Tptr (vec_typ, _) -> (
|
|
match Typ.name vec_typ with
|
|
| None ->
|
|
L.(die InternalError) "Unknown class name of vector `%a`" (Typ.pp_full Pp.text) vec_typ
|
|
| Some t ->
|
|
t )
|
|
| _ ->
|
|
L.(die InternalError) "First parameter of constructor should be a pointer."
|
|
in
|
|
let desc = Typ.Tptr (elt_typ, Typ.Pk_pointer) in
|
|
mk ~cpp_classname:classname cpp_vector_elem_str {Typ.desc; quals= Typ.mk_type_quals ()}
|
|
|
|
|
|
let is_cpp_vector_elem fn =
|
|
String.equal (Typ.Fieldname.to_simplified_string fn) cpp_vector_elem_str
|