From 322a9e0620931e39f6727c55d7c970044336c26f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 21 Jul 2022 15:58:21 +0200
Subject: Add call-with-tmpfile.

---
 module/hnh/util/io.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/module/hnh/util/io.scm b/module/hnh/util/io.scm
index d638ebb4..d73a1de8 100644
--- a/module/hnh/util/io.scm
+++ b/module/hnh/util/io.scm
@@ -4,7 +4,8 @@
   :export (open-input-port
            open-output-port
            read-lines
-           with-atomic-output-to-file))
+           with-atomic-output-to-file
+           call-with-tmpfile))
 
 (define (open-input-port str)
   (if (string=? "-" str)
@@ -62,3 +63,12 @@
         ;; counted on, since anything with an unspecified return
         ;; value might as well return #f)
         #f))))
+
+(define* (call-with-tmpfile proc key: (tmpl "/tmp/file-XXXXXXX"))
+  (let* ((filename (string-copy tmpl))
+         (port (mkstemp! filename)))
+    (with-continuation-barrier
+     (lambda ()
+       (begin1
+        (proc port filename)
+        (close-port port))))))
-- 
cgit v1.2.3