1
(* This file is part of Marionnet, a virtual network laboratory
2
Copyright (C) 2011 Jean-Vincent Loddo
3
Copyright (C) 2011 Université Paris 13
5
This program is free software: you can redistribute it and/or modify
6
it under the terms of the GNU General Public License as published by
7
the Free Software Foundation, either version 2 of the License, or
8
(at your option) any later version.
10
This program is distributed in the hope that it will be useful,
11
but WITHOUT ANY WARRANTY; without even the implied warranty of
12
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
GNU General Public License for more details.
15
You should have received a copy of the GNU General Public License
16
along with this program. If not, see <http://www.gnu.org/licenses/>. *)
18
(** Parts of the environment variable DISPLAY. *)
20
(* The syntax of $DISPLAY is: [host]:display[.screen] *)
22
val host : string (* "localhost" by default *)
24
val screen : string (* "0" by default *)
26
val get_unused_local_display : unit -> string