List.iter (fun key, value -> Helm_registry.set ~key ~value)
let fill_registry init_status =
- wants [ ConfigurationFile ] init_status;
if not (already_configured [ Registry ] init_status) then begin
set_registry_values registry_defaults;
Registry :: init_status
init_status
let initialize_environment init_status =
- wants [ConfigurationFile] init_status;
+ wants [CmdLine] init_status;
if not (already_configured [Getter;Environment] init_status) then
begin
Http_getter.init ();
let parse_cmdline init_status =
if not (already_configured [CmdLine] init_status) then begin
+ wants [Registry] init_status;
let includes = ref [] in
let default_includes = [
".";
exit 1
let conf_components =
- [ parse_cmdline; load_configuration; fill_registry ]
+ [ load_configuration; fill_registry; parse_cmdline]
let other_components =
[ initialize_makelib; initialize_db; initialize_environment ]
let parse_cmdline_and_configuration_file () =
status := List.fold_left (fun s f -> f s) !status conf_components
-;;
+let initialize_environment () =
+ status := initialize_environment !status
-Inversion_principle.init ()
+let _ =
+ Inversion_principle.init ()