Improve output of --version, display readable error messages.
[virt-df.git] / virt-df / virt_df.ml
1 (* 'df' command for virtual domains.
2    (C) Copyright 2007-2008 Richard W.M. Jones, Red Hat Inc.
3    http://libvirt.org/
4
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.
9
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.
14
15    You should have received a copy of the GNU General Public License
16    along with this program; if not, write to the Free Software
17    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18  *)
19
20 open Printf
21 open ExtList
22
23 open Virt_df_gettext.Gettext
24
25 (* Command line arguments. *)
26 let debug = ref false
27 let uri = ref None
28 let inodes = ref false
29 let human = ref false
30 let all = ref false
31 let test_files = ref []
32 let csv_mode = ref false
33
34 (* Support for CSV (overridden by virt_df_csv.ml, if present). *)
35 let csv_write = ref None