globals.ml

   1 let frontend = ref ""
   2 let backend = ref ""
   3 let debug = ref true
   4
   5 type fd_and_fname = string option * Unix.file_descr
   6 type relpath = Relpath of string
   7
   8 exception Bad_path
   9 exception Bug