You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
59 lines
1.9 KiB
59 lines
1.9 KiB
(*
|
|
* Copyright (c) 2018-present, Facebook, Inc.
|
|
*
|
|
* This source code is licensed under the MIT license found in the
|
|
* LICENSE file in the root directory of this source tree.
|
|
*)
|
|
|
|
open! IStd
|
|
|
|
val default_pp_call : Format.formatter -> CallSite.t -> unit
|
|
|
|
(** A powerset domain of traces, with bottom = empty and join = union *)
|
|
module type FiniteSet = sig
|
|
include AbstractDomain.FiniteSetS
|
|
|
|
val with_callsite : t -> CallSite.t -> t
|
|
(** Push given callsite onto all traces in set. Cf [TraceElem.with_callsite] *)
|
|
end
|
|
|
|
module type Element = sig
|
|
include PrettyPrintable.PrintableOrderedType
|
|
|
|
val pp_human : Format.formatter -> t -> unit
|
|
(** Pretty printer used for trace construction; [pp] is used for debug output. *)
|
|
|
|
val pp_call : Format.formatter -> CallSite.t -> unit
|
|
end
|
|
|
|
module type TraceElem = sig
|
|
type elem_t
|
|
|
|
(** An [elem] which occured at [loc], after the chain of steps (usually calls) in [trace]. *)
|
|
type t = private {elem: elem_t; loc: Location.t; trace: CallSite.t list}
|
|
|
|
(** Both [pp] and [pp_human] simply call the same function on the trace element. *)
|
|
include Element with type t := t
|
|
|
|
val make : elem_t -> Location.t -> t
|
|
|
|
val map : f:(elem_t -> elem_t) -> t -> t
|
|
|
|
val get_loc : t -> Location.t
|
|
(** Starting location of the trace: this is either [loc] if [trace==[]], or the head of [trace]. *)
|
|
|
|
val make_loc_trace : ?nesting:int -> t -> Errlog.loc_trace
|
|
|
|
val with_callsite : t -> CallSite.t -> t
|
|
(** Push given callsite onto trace, extending the call chain by one. *)
|
|
|
|
(** A powerset of traces. *)
|
|
module FiniteSet : FiniteSet with type elt = t
|
|
end
|
|
|
|
(* The [compare] function produced ignores traces but *not* locations *)
|
|
module MakeTraceElem (Elem : Element) : TraceElem with type elem_t = Elem.t
|
|
|
|
(* The [compare] function produced ignores traces *and* locations -- it is just [Elem.compare] *)
|
|
module MakeTraceElemModuloLocation (Elem : Element) : TraceElem with type elem_t = Elem.t
|