global.ml

(** Time-stamp: <modified the 28/05/2008 (at 14:08) by Erwan Jahier> *)

(** Some global variables  *)

type t = {
  mutable outfile : string;
  mutable infiles : string list;
  mutable current_file : string;
  mutable main_node : string;
  mutable compile_all_items : bool;
  mutable run_unit_test : bool
}

let vars = {
  outfile = "" ;   
  infiles = [] ;
  current_file = "";
  main_node = ""; 
  compile_all_items = false;
  run_unit_test = false;
}


let oc = ref Pervasives.stdout