Updated kerneldb.
[virt-mem.git] / mem / virt_mem_main.ml
1 (* Memory info command for virtual domains.
2    (C) Copyright 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    Links everything into a single executable and invokes 'main'.
20  *)
21
22 (* Because internal commands like 'virt-mem capture' are stored
23  * in a library [*.cma/*.cmxa], they don't automatically get
24  * loaded/registered unless someone seems to be using them.  So
25  * we need to pretend to be using them here.  External commands
26  * like 'virt-ps' are OK because they are linked as *.cmo/*.cmx
27  * files.
28  *)
29 let _ = Virt_mem_capture.summary
30
31 (* Call main program. *)
32 let () = Virt_mem.main ()