Passage a la version bootstrappee (franchissement du Rubicon)

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

1 files changed, 20 insertions, 0 deletions

diff --git a/toplevel/toploop.mli b/toplevel/toploop.mli
new file mode 100644
index 0000000000..8196ac1107
--- /dev/null
+++ b/toplevel/toploop.mli
@@ -0,0 +1,20 @@
+(* The interactive toplevel loop *)
+
+val loop: unit -> unit
+
+(* Interface with toplevel directives *)
+
+type directive_fun =
+    Directive_none of (unit -> unit)
+  | Directive_string of (string -> unit)
+  | Directive_int of (int -> unit)
+  | Directive_ident of (Longident.t -> unit)
+
+val directive_table: (string, directive_fun) Hashtbl.t
+        (* Table of known directives, with their execution function *)
+val execute_phrase: Parsetree.toplevel_phrase -> unit
+        (* Execute the given toplevel phrase *)
+val print_exception_outcome: exn -> unit
+        (* Print an exception resulting from the evaluation of user code. *)
+val toplevel_env: Env.t ref
+        (* Typing environment for the toplevel *)