examples/node_info.ml

   1 (* Simple demo program showing node info.
   2    Usage: node_info [URI]
   3    (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
   4    http://libvirt.org/
   5  *)
   6
   7 open Printf
   8
   9 module C = Libvirt.Connect
  10
  11 let () =
  12   try
  13     let name =
  14       if Array.length Sys.argv >= 2 then
  15         Some (Sys.argv.(1))
  16       else
  17         None in
  18     let conn = C.connect_readonly ?name () in
  19
  20     (* Get node_info, hostname, etc. *)
  21     let node_info = C.get_node_info conn in
  22
  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;
  31
  32     let hostname = C.get_hostname conn in
  33
  34     printf "hostname = %s\n%!" hostname;
  35
  36     let uri = C.get_uri conn in
  37
  38     printf "uri = %s\n%!" uri
  39
  40   with
  41     Libvirt.Virterror err ->
  42       eprintf "error: %s\n" (Libvirt.Virterror.to_string err)
  43
  44 let () =
  45   (* Run the garbage collector which is a good way to check for
  46    * memory corruption errors and reference counting issues in libvirt.
  47    *)
  48   Gc.compact ()