[Pkg-libvirt-commits] [libguestfs] 12/26: builder: add functions to read XDG_CONFIG_DIRS and XDG_CONFIG_PATH

[Hilko Bengen]

This is an automated email from the git hooks/post-receive script.

bengen pushed a commit to annotated tag upstream/1.25.39
in repository libguestfs.

commit a21da3c8013e2658b41de962c4fb98df3c8896e4
Author: Pino Toscano <ptoscano at redhat.com>
Date:   Tue Feb 25 17:29:08 2014 +0100

    builder: add functions to read XDG_CONFIG_DIRS and XDG_CONFIG_PATH
---
 builder/paths.ml | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/builder/paths.ml b/builder/paths.ml
index 66e8922..e4f0c7b 100644
--- a/builder/paths.ml
+++ b/builder/paths.ml
@@ -24,3 +24,18 @@ let xdg_cache_home =
     try Some (Sys.getenv "HOME" // ".cache" // "virt-builder")
     with Not_found ->
       None (* no cache directory *)
+
+let xdg_config_home ~prog =
+  try Some (Sys.getenv "XDG_CONFIG_HOME" // prog)
+  with Not_found ->
+    try Some (Sys.getenv "HOME" // ".config" // prog)
+    with Not_found ->
+      None (* no config directory *)
+
+let xdg_config_dirs ~prog =
+  let dirs =
+    try Sys.getenv "XDG_CONFIG_DIRS"
+    with Not_found -> "/etc/xdg" in
+  let dirs = string_nsplit ":" dirs in
+  let dirs = List.filter (fun x -> x <> "") dirs in
+  List.map (fun x -> x // prog) dirs

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-libvirt/libguestfs.git