anil.recoil.org
My working unpac repository
1(**************************************************************************)
2(* *)
3(* OCaml *)
4(* *)
5(* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
6(* OCaml port by John Malecki and Xavier Leroy *)
7(* *)
8(* Copyright 1996 Institut National de Recherche en Informatique et *)
9(* en Automatique. *)
10(* *)
11(* All rights reserved. This file is distributed under the terms of *)
12(* the GNU Lesser General Public License version 2.1, with the *)
13(* special exception on linking described in the file LICENSE. *)
14(* *)
15(**************************************************************************)
16
17(*** Debugging. ***)
18
19val debug_loading : bool ref
20
21(*** Load program ***)
22
23(* Function used for launching the program. *)
24val launching_func : (unit -> unit) ref
25
26val load_program : unit -> unit
27
28type launching_function = (unit -> unit)
29
30val loading_modes : (string * launching_function) list
31val set_launching_function : launching_function -> unit
32
33(** Connection **)
34val connection : Primitives.io_channel ref
35val connection_opened : bool ref