mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-22 07:03:38 +00:00
448a61fbd5
Change Index.arch to the type (Arch of string | GuessedArch of string).
In a future commit, the index parser will allow arch not to be set
for some cases. Thus arch value will be guessed by inspecting the
image. However we need to distinguish between a set value and a guessed
one. Using this new type will help it:
match arch with
| Arch s -> (* This is a set value *)
| GuessedArch s -> (* This is a guessed value *)
46 lines
1.8 KiB
OCaml
46 lines
1.8 KiB
OCaml
(* virt-builder
|
|
* Copyright (C) 2013-2017 Red Hat Inc.
|
|
*
|
|
* 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.,
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
*)
|
|
|
|
(** This module represents a local cache. *)
|
|
|
|
val clean_cachedir : string -> unit
|
|
(** [clean_cachedir dir] clean the specified cache directory. *)
|
|
|
|
type t
|
|
(** The abstract data type. *)
|
|
|
|
val create : directory:string -> t
|
|
(** Create the abstract type. *)
|
|
|
|
val cache_of_name : t -> string -> Index.arch -> Utils.revision -> string
|
|
(** [cache_of_name t name arch revision] return the filename
|
|
of the cached file. (Note: It doesn't check if the filename
|
|
exists, this is just a simple string transformation). *)
|
|
|
|
val is_cached : t -> string -> Index.arch -> Utils.revision -> bool
|
|
(** [is_cached t name arch revision] return whether the file with
|
|
specified name, architecture and revision is cached. *)
|
|
|
|
val print_item_status : t -> header:bool -> (string * Index.arch * Utils.revision) list -> unit
|
|
(** [print_item_status t header items] print the status in the cache
|
|
of the specified items (which are tuples of name, architecture,
|
|
and revision).
|
|
|
|
If [~header:true] then display a header with the path of the
|
|
cache. *)
|