1 (***********************************************************************)
5 (* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
6 (* Objective Caml port by John Malecki and Xavier Leroy *)
8 (* Copyright 1996 Institut National de Recherche en Informatique et *)
9 (* en Automatique. All rights reserved. This file is distributed *)
10 (* under the terms of the Q Public License version 1.0. *)
12 (***********************************************************************)
14 (* $Id: program_loading.mli 2553 1999-11-17 18:59:06Z xleroy $ *)
18 val debug_loading : bool ref
20 (*** Load program ***)
22 (* Function used for launching the program. *)
23 val launching_func : (unit -> unit) ref
25 val load_program : unit -> unit
27 type launching_function = (unit -> unit)
29 val loading_modes : (string * launching_function) list
30 val set_launching_function : launching_function -> unit
33 val connection : Primitives.io_channel ref
34 val connection_opened : bool ref