git://git.onelab.eu
/
vsys.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0afb155ddca0118943d9bd3a77fc89378084ecd6
[vsys.git]
/
globals.ml
1
(** Some things that didn't fit in elsewhere *)
2
let backend = ref ""
3
let debug = ref true
4
let vsys_version = "0.5"
5
6
type result = Success | Failed
7
8
type fname_and_fd = string option * Unix.file_descr
9
10
(* Relative path, never precededed by a '/' *)
11
type relpath = Relpath of string
12
13
exception Bad_path
14
exception Bug