(* Simple demo program showing how to list out domains.
   Usage: list_domains [URI]
   (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
   http://libvirt.org/
 *)

open Printf

module C = Libvirt.Connect
module D = Libvirt.Domain
module N = Libvirt.Network

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

    (* List running domains. *)
    let domains =
      fst (Libvirt.get_domains conn ~want_info:false [D.ListActive]) in
    List.iter (
      fun dom ->
	printf "%8d %s\n%!" (D.get_id dom) (D.get_name dom)
    ) domains;

    (* List inactive domains. *)
    let domains =
      fst (Libvirt.get_domains conn ~want_info:false [D.ListInactive]) in
    List.iter (
      fun dom ->
	printf "inactive %s\n%!" (D.get_name dom)
    ) domains;
  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 ()