/*
 * Copyright (c) 2015 - 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;


/** Attributes of a procedure. */
let module L = Logging;

let module F = Format;


/** Type for ObjC accessors */
type objc_accessor_type = | Objc_getter of Ident.fieldname | Objc_setter of Ident.fieldname;

type t = {
  access: Sil.access, /** visibility access */
  captured: list (Mangled.t, Sil.typ), /** name and type of variables captured in blocks */
  mutable changed: bool, /** true if proc has changed since last analysis */
  err_log: Errlog.t, /** Error log for the procedure */
  exceptions: list string, /** exceptions thrown by the procedure */
  formals: list (Mangled.t, Sil.typ), /** name and type of formal parameters */
  func_attributes: list Sil.func_attribute,
  is_abstract: bool, /** the procedure is abstract */
  mutable is_bridge_method: bool, /** the procedure is a bridge method */
  is_defined: bool, /** true if the procedure is defined, and not just declared */
  is_objc_instance_method: bool, /** the procedure is an objective-C instance method */
  is_cpp_instance_method: bool, /** the procedure is an C++ instance method */
  mutable is_synthetic_method: bool, /** the procedure is a synthetic method */
  language: Config.language, /** language of the procedure */
  loc: Location.t, /** location of this procedure in the source code */
  mutable locals: list (Mangled.t, Sil.typ), /** name and type of local variables */
  method_annotation: Sil.method_annotation, /** annotations for java methods */
  objc_accessor: option objc_accessor_type, /** type of ObjC accessor, if any */
  proc_flags: proc_flags, /** flags of the procedure */
  proc_name: Procname.t, /** name of the procedure */
  ret_type: Sil.typ /** return type */
};

let default proc_name language => {
  access: Sil.Default,
  captured: [],
  changed: true,
  err_log: Errlog.empty (),
  exceptions: [],
  formals: [],
  func_attributes: [],
  is_abstract: false,
  is_bridge_method: false,
  is_cpp_instance_method: false,
  is_defined: false,
  is_objc_instance_method: false,
  is_synthetic_method: false,
  language,
  loc: Location.dummy,
  locals: [],
  method_annotation: Sil.method_annotation_empty,
  objc_accessor: None,
  proc_flags: proc_flags_empty (),
  proc_name,
  ret_type: Sil.Tvoid
};