diff options
Diffstat (limited to 'ocaml-binary-annot/debugger/parameters.ml')
| -rw-r--r-- | ocaml-binary-annot/debugger/parameters.ml | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/ocaml-binary-annot/debugger/parameters.ml b/ocaml-binary-annot/debugger/parameters.ml new file mode 100644 index 0000000000..9d518e5494 --- /dev/null +++ b/ocaml-binary-annot/debugger/parameters.ml @@ -0,0 +1,39 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *) +(* Objective Caml port by John Malecki and Xavier Leroy *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id$ *) + +(* Miscellaneous parameters *) + +open Primitives +open Config +open Debugger_config + +let program_loaded = ref false +let program_name = ref "" +let socket_name = ref "" +let arguments = ref "" + +let default_load_path = + ref [ Filename.current_dir_name; Config.standard_library ] + +let add_path dir = + load_path := dir :: except dir !load_path; + Envaux.reset_cache() + +let add_path_for mdl dir = + let old = try Hashtbl.find load_path_for mdl with Not_found -> [] in + Hashtbl.replace load_path_for mdl (dir :: old) + +(* Used by emacs ? *) +let emacs = ref false |