Goblint_tracing (goblint.Goblint

module Strs : sig ... end

val tracing : bool

val current_loc : GoblintCil.location Stdlib.ref

val next_loc : GoblintCil.location Stdlib.ref

val trace_sys : Strs.t Stdlib.ref

val activated : Strs.t Stdlib.ref

val active_dep : (string, Strs.t) Stdlib.Hashtbl.t

val tracevars : string list Stdlib.ref

val tracelocs : int list Stdlib.ref

val addsystem : Strs.elt -> unit

val activate : string -> string list -> unit

val deactivate : string -> unit

val indent_level : int Stdlib.ref

val traceIndent : unit -> unit

val traceOutdent : unit -> unit

val traceTag : string -> GoblintCil.Pretty.doc

val printtrace : string -> GoblintCil.Pretty.doc -> unit

val gtrace : 
  bool ->
  (Strs.elt -> GoblintCil.Pretty.doc -> unit) ->
  Strs.elt ->
  string option ->
  ?loc:GoblintCil.location ->
  (unit -> unit) ->
  ('a, unit, GoblintCil.Pretty.doc, unit) Stdlib.format4 ->
  'b

val trace : 
  Strs.elt ->
  ?var:string ->
  ('a, unit, GoblintCil.Pretty.doc, unit) Stdlib.format4 ->
  'b

val tracei : 
  string ->
  ?var:string ->
  ?subsys:string list ->
  ('a, unit, GoblintCil.Pretty.doc, unit) Stdlib.format4 ->
  'b

val tracec : 
  Strs.elt ->
  ('a, unit, GoblintCil.Pretty.doc, unit) Stdlib.format4 ->
  'b

val traceu : 
  Strs.elt ->
  ('a, unit, GoblintCil.Pretty.doc, unit) Stdlib.format4 ->
  'b