X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=virt-top%2Fvirt_top_csv.ml;h=e048856518cd73e8732e0aef91378ef4999e59f9;hp=8f8c45d8464ead7e24cb78afec51de519554480f;hb=8735ff4e1dfbb1f9205f851b5efc56cf20fb31a9;hpb=9bb5f67c0d8a6e8dad7de72e2488ee73c90f7d43 diff --git a/virt-top/virt_top_csv.ml b/virt-top/virt_top_csv.ml index 8f8c45d..e048856 100644 --- a/virt-top/virt_top_csv.ml +++ b/virt-top/virt_top_csv.ml @@ -1,5 +1,5 @@ (* 'top'-like tool for libvirt domains. - (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc. + (C) Copyright 2007-2009 Richard W.M. Jones, Red Hat Inc. http://libvirt.org/ This program is free software; you can redistribute it and/or modify @@ -19,6 +19,8 @@ This file contains all code which requires CSV support. *) +open Virt_top_gettext.Gettext + (* Output channel, or None if CSV output not enabled. *) let chan = ref None ;;