Commit 0fd8cd32 authored by Allan Blanchard's avatar Allan Blanchard
Browse files

[kernel] restore plugin path

parent 60f0ee34
......@@ -37,6 +37,9 @@ let datadir = List.hd (List.rev datadirs)
let plugin_dir = List.map Filepath.Normalized.of_string Config_data.Sites.plugins
let plugin_path =
String.concat ":" (Filepath.Normalized.to_string_list plugin_dir)
let framac_libc = Filepath.Normalized.concat datadir "libc"
let () = Filepath.add_symbolic_dir_list "FRAMAC_SHARE" datadirs
......
......@@ -64,6 +64,10 @@ val framac_libc: Filepath.Normalized.t
val plugin_dir: Filepath.Normalized.t list
(** Directory where the Frama-C dynamic plug-ins are. *)
val plugin_path: string
(** The colon-separated concatenation of [plugin_dir].
@since Magnesium-20151001 *)
val preprocessor: string
(** Name of the default command to call the preprocessor.
If the CPP environment variable is set, use it
......
......@@ -70,6 +70,10 @@ let () = Cmdline.run_after_early_stage print_sharepath
let print_libpath = print_configl Kernel.PrintLib.get Fc_config.plugin_dir
let () = Cmdline.run_after_early_stage print_libpath
let print_pluginpath =
print_config Kernel.PrintPluginPath.get Fc_config.plugin_path
let () = Cmdline.run_after_early_stage print_pluginpath
(**************************************************************************)
(* Hooks run after loading plug-ins *)
(**************************************************************************)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment