(* Memory info for virtual domains.
   (C) Copyright 2008 Richard W.M. Jones, Red Hat Inc.
   http://libvirt.org/

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*)

(** Wrappers around the XMLRPC calls. *)

type build = {
  package_name : string;		(* eg. "kernel" *)
  version : string;			(* eg. "2.6.25" *)
  release : string;			(* eg. "1.fc8" *)
  build_id : int;
}

type rpm = {
  rpm_id : int;			        (* RPM ID (for downloading, etc.) *)
  rpm_build : build;
  rpm_name : string;			(* eg. "kernel" *)
  rpm_version : string;			(* eg. "2.6.25" *)
  rpm_release : string;			(* eg. "1.fc8" *)
  rpm_size : int;			(* size in bytes of the RPM. *)
  rpm_arch : string;			(* architecture *)
}

val string_of_build : build -> string

val string_of_rpm : rpm -> string

(* Zzzaaargghh why doesn't xmlrpc-light define a name for the client object? *)
type rpc = < call : string -> XmlRpc.value list -> XmlRpc.value >

val list_builds : rpc -> prefix:string -> build list

val list_build_rpms : rpc -> build -> rpm list

(* This gets the RPM download URL for an RPM.  I can't see a way to
 * get this using the Koji API, but the URLs are fairly predictable
 * anyway.  The return value is (URI, filename).
 *)
val rpm_download_url : rpm -> string * string