package mopsa

  1. Overview
  2. Docs

Module Interactive.Trace

type trace_element_kind =
  1. | BEGIN
  2. | END
type trace_element = {
  1. id : int;
  2. action : Action.action;
  3. kind : trace_element_kind;
  4. time : float;
}
type trace = {
  1. elements : trace_element list;
  2. last_id : int;
}
val empty_trace : trace
val begin_trace_element : Action.action -> trace -> trace
val end_trace_element : int -> Action.action -> trace -> trace
val get_last_trace_element_id : trace -> int
val colored : int -> string -> string
val pp_trace : Format.formatter -> trace -> unit