X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=inline;f=examples%2Fnode_info.ml;fp=examples%2Fnode_info.ml;h=c52615e50588d918d924af9ef49cbaef54aeb493;hb=9b4bab1fe618affd0e69666ec6467b414cee325e;hp=0000000000000000000000000000000000000000;hpb=4c5a6c02d72a5c40102b6c26705574f84c89eb20;p=virt-top.git

diff --git a/examples/node_info.ml b/examples/node_info.ml
new file mode 100644
index 0000000..c52615e
--- /dev/null
+++ b/examples/node_info.ml
@@ -0,0 +1,48 @@
+(* Simple demo program showing node info.
+   Usage: node_info [URI]
+   (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
+   http://libvirt.org/
+ *)
+
+open Printf
+
+module C = Libvirt.Connect
+
+let () =
+  try
+    let name =
+      if Array.length Sys.argv >= 2 then
+	Some (Sys.argv.(1))
+      else
+	None in
+    let conn = C.connect_readonly ?name () in
+
+    (* Get node_info, hostname, etc. *)
+    let node_info = C.get_node_info conn in
+
+    printf "model = %s\n" node_info.C.model;
+    printf "memory = %Ld K\n" node_info.C.memory;
+    printf "cpus = %d\n" node_info.C.cpus;
+    printf "mhz = %d\n" node_info.C.mhz;
+    printf "nodes = %d\n" node_info.C.nodes;
+    printf "sockets = %d\n" node_info.C.sockets;
+    printf "cores = %d\n" node_info.C.cores;
+    printf "threads = %d\n%!" node_info.C.threads;
+
+    let hostname = C.get_hostname conn in
+
+    printf "hostname = %s\n%!" hostname;
+
+    let uri = C.get_uri conn in
+
+    printf "uri = %s\n%!" uri
+
+  with
+    Libvirt.Virterror err ->
+      eprintf "error: %s\n" (Libvirt.Virterror.to_string err)
+
+let () =
+  (* Run the garbage collector which is a good way to check for
+   * memory corruption errors and reference counting issues in libvirt.
+   *)
+  Gc.compact ()