1 (* 'top'-like tool for libvirt domains.
2 * $Id: virt_top_csv.ml,v 1.1 2007/08/23 11:09:19 rjones Exp $
4 * This file contains all code which requires CSV support.
7 (* Output channel, or None if CSV output not enabled. *)
12 chan := Some (open_out filename) ;;
17 | None -> () (* CSV output not enabled. *)
19 Csv.save_out chan [row];
20 (* Flush the output to the file immediately because we don't
21 * explicitly close this file.