Rename source directory and files.
[virt-top.git] / src / opt_csv.ml
1 (* 'top'-like tool for libvirt domains.
2    (C) Copyright 2007-2009 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    This file contains all code which requires CSV support.
20 *)
21
22 open Opt_gettext.Gettext
23
24 (* Output channel, or None if CSV output not enabled. *)
25 let chan = ref None ;;
26
27 Top.csv_start :=
28   fun filename ->
29     chan := Some (open_out filename) ;;
30
31 Top.csv_write :=
32   fun row ->
33     match !chan with
34     | None -> ()                        (* CSV output not enabled. *)
35     | Some chan ->
36         Csv.save_out chan [row];
37         (* Flush the output to the file immediately because we don't
38          * explicitly close this file.
39          *)
40         flush chan