sig
type localizable =
PStmt of (Db_types.kernel_function * Cil_types.stmt)
| PLval of
(Db_types.kernel_function option * Cil_types.kinstr * Cil_types.lval)
| PTermLval of
(Db_types.kernel_function option * Cil_types.kinstr *
Cil_types.term_lval)
| PVDecl of (Db_types.kernel_function option * Cil_types.varinfo)
| PCodeAnnot of
(Db_types.kernel_function * Cil_types.stmt *
Cil_types.code_annotation)
| PGlobal of Cil_types.global
| PRequires of
(Db_types.kernel_function * Cil_types.kinstr *
Cil_types.funbehavior option * Cil_types.identified_predicate)
| PBehavior of
(Db_types.kernel_function * Cil_types.kinstr * Cil_types.funbehavior)
| PVariant of
(Db_types.kernel_function * Cil_types.kinstr *
Cil_types.term Cil_types.variant)
| PTerminates of
(Db_types.kernel_function * Cil_types.kinstr *
Cil_types.identified_predicate)
| PComplete_behaviors of
(Db_types.kernel_function * Cil_types.kinstr * string list)
| PDisjoint_behaviors of
(Db_types.kernel_function * Cil_types.kinstr * string list)
| PAssumes of
(Db_types.kernel_function * Cil_types.kinstr *
Cil_types.funbehavior option * Cil_types.identified_predicate)
| PPost_cond of
(Db_types.kernel_function * Cil_types.kinstr *
Cil_types.funbehavior option *
(Cil_types.termination_kind * Cil_types.identified_predicate))
| PAssigns of
(Db_types.kernel_function * Cil_types.kinstr *
Cil_types.funbehavior option *
Cil_types.identified_term Cil_types.assigns list)
| PPredicate of
(Db_types.kernel_function option * Cil_types.kinstr *
Cil_types.identified_predicate)
module Localizable_Datatype :
sig
type t = localizable
val descr : Unmarshal.t
val copy : t -> t
val name : string
val register_comparable :
?compare:(t -> t -> int) ->
?equal:(t -> t -> bool) -> ?hash:(t -> int) -> unit -> unit
val is_comparable_set : unit -> bool
val hash : t -> int
val equal : t -> t -> bool
val compare : t -> t -> int
val mem_project : ((Project.project -> bool) -> t -> bool) option ref
end
module Locs : sig type state end
val display_source :
Cil_types.global list ->
GSourceView2.source_buffer ->
host:Gtk_helper.host ->
highlighter:(Pretty_source.localizable -> start:int -> stop:int -> unit) ->
selector:(button:int -> Pretty_source.localizable -> unit) ->
Pretty_source.Locs.state
val hilite : Pretty_source.Locs.state -> unit
val locate_localizable :
Pretty_source.Locs.state ->
Pretty_source.localizable -> (int * int) option
val kf_of_localizable :
Pretty_source.localizable -> Db_types.kernel_function option
val localizable_from_locs :
Pretty_source.Locs.state ->
file:string -> line:int -> Pretty_source.localizable list
end