[Libguestfs] [PATCH] mllib: introduce Mkdtemp.temp_dir

Pino Toscano ptoscano at redhat.com
Mon Jul 7 17:53:51 UTC 2014


Add a simple function to ease the usage of Mkdtemp.mkdtemp.
---
 mllib/mkdtemp.ml  | 5 +++++
 mllib/mkdtemp.mli | 7 +++++++
 2 files changed, 12 insertions(+)

diff --git a/mllib/mkdtemp.ml b/mllib/mkdtemp.ml
index 2e64862..353b04b 100644
--- a/mllib/mkdtemp.ml
+++ b/mllib/mkdtemp.ml
@@ -16,4 +16,9 @@
  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  *)
 
+open Common_utils
+
 external mkdtemp : string -> string = "virt_builder_mkdtemp"
+
+let temp_dir ?(base_dir = Filename.temp_dir_name) prefix suffix =
+  mkdtemp (base_dir // (prefix ^ "XXXXXX" ^ suffix))
diff --git a/mllib/mkdtemp.mli b/mllib/mkdtemp.mli
index 674e6f2..9abb10c 100644
--- a/mllib/mkdtemp.mli
+++ b/mllib/mkdtemp.mli
@@ -18,3 +18,10 @@
 
 val mkdtemp : string -> string
 (** [mkdtemp pattern] Tiny wrapper to the C [mkdtemp]. *)
+
+val temp_dir : ?base_dir:string -> string -> string -> string
+(** [temp_dir prefix suffix] creates a new unique temporary directory.
+
+    The optional [~base_dir:string] changes the base directory where
+    to create the new temporary directory; if not specified, the default
+    [Filename.temp_dir_name] is used. *)
-- 
1.9.3




More information about the Libguestfs mailing list