open Interp_utilities;;
open Interp_ast ;;
open Sail_impl_base ;;
open Interp_interface ;;

(*Functions to translate values, registers, or locations strings *)
(*Takes a location to a formatted string*)
val loc_to_string : l -> string
(*Returns the result of above for the exp's location *)
val get_loc : tannot exp -> string
(*interp_interface.value to string*)
val reg_value_to_string : register_value -> string

(*(*Force all representations to hex strings instead of a mixture of hex and binary strings*)
val val_to_hex_string : value0 -> string*)
(* format one register *)
val reg_name_to_string : reg_name -> string
(* format the register dependencies *)
val dependencies_to_string : reg_name list -> string
(* formats an expression, using interp_pretty *)
val exp_to_string : Interp.lenv -> Interp.lmem -> bool -> tannot exp -> string

(* Functions to set the color of parts of the output *)
type ppmode = 
  | Interp_latex
  | Interp_ascii
  | Interp_html
val set_interp_ppmode : ppmode -> unit
val set_color_enabled : bool -> unit

val red : string -> string
val blue : string -> string
val green : string -> string
val yellow : string -> string
val grey : string -> string


(*Functions to modify the instruction state and expression used in printing and in run_model*)
val compact_exp : tannot exp -> tannot exp
val top_frame_exp_state : interpreter_state -> (tannot exp * (Interp.lenv*Interp.lmem))


(*functions to format events and instruction_states to strings *)
(*Create one large string of all of the events (indents automatically) *)
val format_events : event list -> string
(*format a portion of the instruction state for easy viewing *)
val instruction_state_to_string : instruction_state -> string
(*format a the cull instruction call stack*)
val instruction_stack_to_string : instruction_state -> string
(*format just the top of the call stack*)
val top_instruction_state_to_string : instruction_state -> string
val local_variables_to_string : instruction_state -> string


val instruction_to_string : instruction -> string

(*Functions to take a print function and cause a print event for the above functions *)
val print_exp : (string-> unit) -> Interp.lenv -> Interp.lmem -> bool -> tannot exp -> unit 
val print_backtrace_compact : (string -> unit) -> instruction_state -> unit
val print_continuation : (string -> unit) -> instruction_state -> unit
val print_instruction : (string -> unit) -> instruction -> unit
val print_stack : (string -> unit) -> instruction_state -> unit

val register_value_to_string : register_value -> string
val memory_value_to_string : end_flag -> memory_value -> string


val logfile_register_value_to_string : register_value -> string
val logfile_memory_value_to_string : end_flag -> memory_value -> string
val logfile_address_to_string : address -> string

val byte_list_to_string : byte list -> string
val bit_lifted_to_string : bit_lifted -> string

val pp_instruction_state : instruction_state -> unit -> (string * string)