[From] Removes exported functions from Db.

src/kernel_services/plugin_entry_points/db.ml

@@ -674,38 +674,13 @@ module Value = struct
 end
 
 module From = struct
-
   exception Not_lval
 
-  let access = mk_fun "From.access"
   let find_deps_no_transitivity = mk_fun "From.find_deps_no_transitivity"
   let find_deps_no_transitivity_state =
     mk_fun "From.find_deps_no_transitivity_state"
   let find_deps_term_no_transitivity_state =
     mk_fun "From.find_deps_term_no_transitivity_state"
-  let compute = mk_fun "From.compute"
-  let compute_all = mk_fun "From.compute_all"
-  let compute_all_calldeps = mk_fun "From.compute_all_calldeps"
-  let is_computed = mk_fun "From.is_computed"
-  let pretty = mk_fun "From.pretty"
-  let get = mk_fun "From.get"
-  let self = ref State.dummy
-  let display = mk_fun "From.display"
-
-  module Record_From_Callbacks =
-    Hook.Build
-      (struct
-        type t =
-          (Kernel_function.t Stack.t) *
-          Function_Froms.Memory.t Stmt.Hashtbl.t *
-          (Kernel_function.t * Function_Froms.Memory.t) list
-            Stmt.Hashtbl.t
-      end)
-
-  module Callwise = struct
-    let iter = mk_fun "From.Callwise.iter"
-    let find = mk_fun "From.Callwise.find"
-  end
 end
 
 (* ************************************************************************* *)

src/kernel_services/plugin_entry_points/db.mli

@@ -513,20 +513,6 @@ module From : sig
   *)
   exception Not_lval
 
-  val compute_all : (unit -> unit) ref
-  val compute_all_calldeps : (unit -> unit) ref
-
-  val compute : (kernel_function -> unit) ref
-
-  val is_computed: (kernel_function -> bool) ref
-  (** Check whether the from analysis has been performed for the given
-      function.
-      @return true iff the analysis has been performed *)
-
-  val get : (kernel_function -> Function_Froms.t) ref
-  val access : (Locations.Zone.t -> Function_Froms.Memory.t
-                -> Locations.Zone.t) ref
-
   val find_deps_no_transitivity : (stmt -> exp -> Locations.Zone.t) ref
 
   val find_deps_no_transitivity_state :
@@ -536,32 +522,10 @@ module From : sig
   val find_deps_term_no_transitivity_state :
     (Cvalue.Model.t -> term -> Value_types.logic_dependencies) ref
 
-  val self: State.t ref
-
-  (** {3 Pretty printing} *)
-
-  val pretty : (Format.formatter -> kernel_function -> unit) ref
-  val display : (Format.formatter -> unit) ref
-
-  (** {3 Callback} *)
-
-  module Record_From_Callbacks:
-    Hook.Iter_hook with type param =
-                          Kernel_function.t Stack.t *
-                          Function_Froms.Memory.t Stmt.Hashtbl.t *
-                          (Kernel_function.t * Function_Froms.Memory.t) list
-                            Stmt.Hashtbl.t
-
-  (** {3 Access to callwise-stored data} *)
-
-  module Callwise : sig
-    val iter : ((kinstr -> Function_Froms.t -> unit) -> unit) ref
-    val find : (kinstr -> Function_Froms.t) ref
-  end
 end
 [@@alert db_deprecated
     "Db.From is deprecated and will be removed in a future version \
-     of Frama-C. Please use the From module instead."]
+     of Frama-C. Please use the From module or the Eva API instead."]
 
 (* ************************************************************************* *)
 (** {2 Properties} *)