1 (* Simple demo program showing node info.
3 (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
9 module C = Libvirt.Connect
14 if Array.length Sys.argv >= 2 then
18 let conn = C.connect_readonly ?name () in
20 (* Get node_info, hostname, etc. *)
21 let node_info = C.get_node_info conn in
23 printf "model = %s\n" node_info.C.model;
24 printf "memory = %Ld K\n" node_info.C.memory;
25 printf "cpus = %d\n" node_info.C.cpus;
26 printf "mhz = %d\n" node_info.C.mhz;
27 printf "nodes = %d\n" node_info.C.nodes;
28 printf "sockets = %d\n" node_info.C.sockets;
29 printf "cores = %d\n" node_info.C.cores;
30 printf "threads = %d\n%!" node_info.C.threads;
32 let hostname = C.get_hostname conn in
34 printf "hostname = %s\n%!" hostname;
36 let uri = C.get_uri conn in
38 printf "uri = %s\n%!" uri
41 Libvirt.Virterror err ->
42 eprintf "error: %s\n" (Libvirt.Virterror.to_string err)
45 (* Run the garbage collector which is a good way to check for
46 * memory corruption errors and reference counting issues in libvirt.