Ajout de toplevel_startup_hook (pour Cash)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5636 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

toplevel/toploop.ml

@@ -104,6 +104,10 @@ let print_location = Location.print
 let print_warning = Location.print_warning
 let input_name = Location.input_name
 
+(* Hooks for initialization *)
+
+let toplevel_startup_hook = ref (fun () -> ())
+
 (* Load in-core and execute a lambda term *)
 
 let may_trace = ref false (* Global lock on tracing *)

toplevel/toploop.mli

@@ -98,6 +98,10 @@ val print_out_signature :
 val print_out_phrase :
   (formatter -> Outcometree.out_phrase -> unit) ref
 
+(* Hooks for initialization *)
+
+val toplevel_startup_hook : (unit -> unit) ref
+
 (* Used by Trace module *)
 
 val may_trace : bool ref

toplevel/topmain.ml

@@ -20,7 +20,11 @@ let preload_objects = ref []
 
 let prepare ppf =
   Toploop.set_paths ();
-  try List.for_all (Topdirs.load_file ppf) (List.rev !preload_objects)
+  try
+    let res = 
+      List.for_all (Topdirs.load_file ppf) (List.rev !preload_objects) in
+    !Toploop.toplevel_startup_hook ();
+    res
   with x ->
     try Errors.report_error ppf x; false
     with x ->