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.
31 lines
1.2 KiB
31 lines
1.2 KiB
(*
|
|
* 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
|
|
|
|
(** Process properties by creating their getters and setters in the case that they need to be syntethized *)
|
|
(** or in the case of dynamic. *)
|
|
(* How it works: *)
|
|
(* - First, the property is defined in the interface. Then, we add the method declarations of the getter *)
|
|
(* and setter to the map property_table. *)
|
|
(* - Second, in the class implementation, if synthetize is available, create the getters and setters, *)
|
|
(* unless some of these methods has already been created before. *)
|
|
|
|
let is_strong_property obj_c_property_decl_info =
|
|
let attrs = obj_c_property_decl_info.Clang_ast_t.opdi_property_attributes in
|
|
List.exists ~f:(fun a -> match a with
|
|
| `Strong -> true
|
|
| _ -> false) attrs
|
|
|
|
let is_assign_property obj_c_property_decl_info =
|
|
let attrs = obj_c_property_decl_info.Clang_ast_t.opdi_property_attributes in
|
|
List.exists ~f:(fun a -> match a with
|
|
| `Assign -> true
|
|
| _ -> false) attrs
|