(*
 * Copyright (c) 2009 - 2013 Monoidics ltd.
 * 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 Javalib_pack
open Sawja_pack

(** Data structure for storing the results of the translation of an instruction.   *)
type translation =
  | Skip
  | Instr of Cfg.Node.t
  | Prune of Cfg.Node.t * Cfg.Node.t
  | Loop of Cfg.Node.t * Cfg.Node.t * Cfg.Node.t

val is_java_native : JCode.jcode Javalib.concrete_method  -> bool

(** Create the procedure description for an abstract method *)
val create_am_procdesc :
  JClasspath.program -> JContext.icfg -> Javalib.abstract_method -> Procname.t -> Cfg.Procdesc.t

(** Create the procedure description for a concrete method *)
val create_native_procdesc :
  JClasspath.program ->
  JContext.icfg ->
  JCode.jcode Javalib.concrete_method ->
  Procname.t ->
  Cfg.Procdesc.t

(** [create_procdesc source_file program linereader icfg cm proc_name] creates
    a procedure description for the concrete method cm and adds it to cfg *)
val create_cm_procdesc :
  DB.source_file ->
  JClasspath.program ->
  Printer.LineReader.t ->
  JContext.icfg ->
  JCode.jcode Javalib.concrete_method ->
  Procname.t ->
  (Cfg.Procdesc.t * JBir.t) option

(** translates an instruction into a statement node or prune nodes in the cfg *)
val instruction : JContext.t -> int -> JBir.instr -> translation

exception Frontend_error of string