(* * 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! Utils open Clang_ast_t (** This module creates extra ast constructs that are needed for the translation *) val dummy_stmt : unit -> stmt val dummy_source_range : unit -> source_range val dummy_stmt_info : unit -> stmt_info val create_char_star_type : type_ptr val create_id_type : type_ptr val create_nsarray_star_type : type_ptr val create_void_type : type_ptr val create_int_type : type_ptr val create_void_star_type : type_ptr val create_BOOL_type : type_ptr val create_unsigned_long_type : type_ptr val create_void_unsigned_long_type : type_ptr val create_void_void_type : type_ptr val create_class_type : Clang_ast_types.class_info -> type_ptr val create_struct_type : string -> type_ptr val create_pointer_type : type_ptr -> type_ptr val create_integer_literal : string -> stmt val create_reference_type : type_ptr -> type_ptr val make_objc_ivar_decl : decl_info -> type_ptr -> named_decl_info -> decl val make_stmt_info : decl_info -> stmt_info val make_decl_ref_tp : decl_kind -> pointer -> named_decl_info -> bool -> type_ptr -> decl_ref val make_decl_ref_expr_info : decl_ref -> decl_ref_expr_info val make_general_expr_info : type_ptr -> value_kind -> object_kind -> expr_info val make_expr_info : type_ptr -> expr_info val make_next_object_exp : stmt_info -> stmt -> Clang_ast_t.stmt -> Clang_ast_t.stmt * Clang_ast_t.stmt val create_nil : stmt_info -> stmt val create_implicit_cast_expr : stmt_info -> stmt list -> type_ptr -> cast_kind -> stmt val make_message_expr : type_ptr -> string -> stmt -> stmt_info -> bool -> stmt val make_binary_stmt : stmt -> stmt -> stmt_info -> expr_info -> binary_operator_info -> stmt val make_obj_c_message_expr_info_class : string -> string -> pointer option -> obj_c_message_expr_info val make_obj_c_message_expr_info_instance : string -> obj_c_message_expr_info val translate_dispatch_function : string -> stmt_info -> stmt list -> int -> stmt * type_ptr val translate_block_enumerate : string -> stmt_info -> stmt list -> expr_info -> stmt * (string * Clang_ast_t.pointer * type_ptr) list (* We translate the logical negation of an integer with a conditional*) (* !x <=> x?0:1 *) val trans_negation_with_conditional : stmt_info -> expr_info -> stmt list -> stmt val create_assume_not_null_call : decl_info -> named_decl_info -> type_ptr -> stmt