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.
24 lines
816 B
24 lines
816 B
(*
|
|
* 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
|
|
|
|
let make_var var_str = Pvar.mk (Mangled.from_string var_str) Typ.Procname.empty_block
|
|
|
|
let make_base ?(typ= Typ.mk Tvoid) base_str = AccessPath.base_of_pvar (make_var base_str) typ
|
|
|
|
let make_fieldname = Typ.Fieldname.Java.from_string
|
|
|
|
let make_field_access access_str = AccessPath.FieldAccess (make_fieldname access_str)
|
|
|
|
let make_array_access typ = AccessPath.ArrayAccess (typ, [])
|
|
|
|
let make_access_path base_str access_strs =
|
|
(make_base base_str, List.map ~f:make_field_access access_strs)
|