module T = Types
module V = Values
open Scalars
module E = Expressions
open Errors
module C = Contexts
module Subst = Substitute
module A = CfimAst
module L = Logging
open TypesUtils
open ValuesUtils
module Inv = Invariants
open InterpreterUtils

(* TODO: the below functions have very "rough" signatures and do nothing: I
 * defined them so that the places where we should update the synthesized
 * program are clearly indicated in Interpreter.ml.
 * Also, some of those functions will probably be split, and their call site
 * will probably evolve.
 *
 * Small rk.: most functions should take an additional parameter for the
 * fresh symbolic value which stores the result of the computation.
 * For instance:
 *   `synthesize_binary_op Add op1 op2 s`
 * should generate:
 *   `s := op1 + op2`
 * *)

(** Synthesize code for a symbolic expansion which doesn't lead to branching
    (i.e., applied on a value which is not an enumeration with several variants).
 *)
let synthesize_symbolic_expansion_no_branching (sv : V.symbolic_value)
    (see : symbolic_expansion) : unit =
  ()

(** Synthesize code for a symbolic enum expansion (which leads to branching)
 *)
let synthesize_symbolic_expansion_enum_branching (sv : V.symbolic_value)
    (seel : symbolic_expansion list) : unit =
  ()

let synthesize_symbolic_expansion_if_branching (sv : V.symbolic_value) : unit =
  ()

let synthesize_symbolic_expansion_switch_int_branching (sv : V.symbolic_value) :
    unit =
  ()

let synthesize_unary_op (unop : E.unop) (op : V.typed_value)
    (dest : V.symbolic_value) : unit =
  ()

let synthesize_binary_op (binop : E.binop) (op1 : V.typed_value)
    (op2 : V.typed_value) (dest : V.symbolic_value) : unit =
  ()

(** Actually not sure if we need this, or a synthesize_symbolic_expansion_enum *)
let synthesize_eval_rvalue_discriminant (p : E.place) : unit = ()

let synthesize_eval_rvalue_ref (p : E.place) (bkind : E.borrow_kind) : unit = ()

let synthesize_eval_rvalue_aggregate (aggregate_kind : E.aggregate_kind)
    (ops : E.operand list) : unit =
  ()

let synthesize_function_call (fid : A.fun_id)
    (region_params : T.erased_region list) (type_params : T.ety list)
    (args : V.typed_value list) (dest : E.place) (res : V.symbolic_value) : unit
    =
  ()